2 Images gleichzeitig verschieben?

[LoW_FloW]

Wie baue ich das ein @ Markus?
So gehts nicht:

Delphi-Quellcode:

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_LEFT then MoveFighter (imgFighter1, LeftMove , NoJump );
  if Key=VK_RIGHT then MoveFighter(imgFighter1, RightMove, NoJump );
  if Key=VK_UP then MoveFighter   (imgFighter1, NoMove   , Jumphigh );
  if Key=VK_DOWN then MoveFighter (imgFighter2, LeftMove , NoJump );
  
if ((getkeystate(vk_numpad2)and 128)=128) and 
   ((getkeystate($41)and 128)=128) 
then begin 
  if Key=VK_LEFT then MoveFighter (imgFighter1, LeftMove , NoJump );
  if Key=VK_RIGHT then MoveFighter(imgFighter1, RightMove, NoJump );
  if Key=VK_UP then MoveFighter   (imgFighter1, NoMove   , Jumphigh );
  if Key=VK_DOWN then MoveFighter (imgFighter2, LeftMove , NoJump );
  end;
end;

Oder muss das bei Process fürs Bewegen der Images hin?
[procedure MoveFighter(Image : TImage ; X : integer ; Jump : integer );]