[eXplorer]

незнаю... попробуй через Timer

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Top:=Image1.Top-1;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then  Timer1.Enabled:=true
else
Timer1.Enabled:=false;
end;