[AND_REY]

Если правильно понял вопрос то так:

Код:

Var
 T: Array [0..1] of TPoint; // К-во Imageй. 
 X,Y,N: Integer;

procedure TForm1.Image1Click(Sender: TObject);
begin
 N:= 0;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
 N:= 1;
end;
//И т.д.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ssShift in Shift Then
 begin
  Case Key of
   VK_LEFT: Dec(T[N].X, 5);
   VK_RIGHT: Inc(T[N].X, 5);
   VK_UP: Dec(T[N].Y, 5);
   VK_DOWN: Inc(T[N].Y, 5);
  end;
  (Form1.Components[N] As TImage).Left:= T[N].X;
  (Form1.Components[N] As TImage).Top:= T[N].Y;
 end;
end;