Image nach Tastendruck bewegen

[flomei]

Danke euch allen!
Ich habe jetzt folgenden Code im OnKeyDown und es funzt super:

Delphi-Quellcode:

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
    if
      CanMoveShip = true
    then
      begin
        case Key of
        VK_LEFT: begin if ShipImage.Left > 3 then ShipImage.Left := ShipImage.Left -4 end;
        VK_RIGHT: begin if ShipImage.Left < 430 then ShipImage.Left := ShipImage.Left +4 end
        end;
      end
    else
  end;

MfG Florian