Не кейсовый вызов TBitMap

[Alex Cones]

В D7 можно найти контрол посредством Control:=Form1.FindComponent,

А можно ли найти переменную похожим образом?
Вот у меня имеется кусок кода:

   Case StepCount Of                                                                                                                   
     1 : Case ViewVector Of                                                                                                              
      1 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step11);                                                                                  
      2 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step12);                                                                                  
      3 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step13);                                                                                
      4 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step14);                                                                                  
      End;                                                                                                                              
     2 : Case ViewVector Of                                                                                                               
      1 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step21);                                                                                 
      2 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step22);                                                                                 
      3 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step23);                                                                                 
      4 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step24);                                                                                 
      End;                                                                                                                                 
     3 : Case ViewVector Of                                                                                                                
      1 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step31);                                                                                   
      2 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step32);                                                                                   
      3 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step33);                                                                                   
      4 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step34);                                                                                   
      End;                                                                                                                             
     4 : Case ViewVector Of                                                                                                             
      1 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step41);                                                                                  
      2 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step42);                                                                               
      3 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step43);                                                                        
      4 : Form1.PlayerPicture.Canvas.Draw(0, 0, Step44);                                                                                  
      End;
    End;

Можно ли сократить его в несколько раз, используя похожий метод как через Find?

[soleil@mmc]

юзай двумерный массив

type
  MyArray = array [1..4, 1..4] of integer;

var
  Step: MyArray;
begin
...
Form1.PlayerPicture.Canvas.Draw(0, 0, Step[StepCount, ViewVector]);  
...
end;

[Alex Cones]

Отличная идея! Как я сам не догадался! Спасибо большое!