Timer gestartet....KeyDown abfragen

[Haegar]

also ich hab KeyPreview (meintest du das, hab KeyPress nicht gefunden) auf true gesetzt, und in Ereignissbehandlungsroutine folgendes zu stehen

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key=CHR(VK_UP) then
  auto1.schneller(1.5);
 if Key=CHR(VK_DOWN) then
  auto1.bremsen(2);
end;

alles wunderbar, doch reagiert nix, das object(auto1) sollte sich demnach nach rechts bewegen, oder nach links, je nachdem!

hier die timer-proz + anzeigen-proz.

Delphi-Quellcode:

procedure anzeigen(auto:TAuto);
begin
 auto.zeichnen(Form1.Image1.Canvas);
 auto.x:=auto.x+Trunc(auto.v);
 auto.zeichnen(Form1.Image1.Canvas);
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
 anzeigen(auto1);
end;

is irgendwas nicht korrekt??
kann aber nicht sein, das der timer die ganze sache irgendwie "unterbricht" (solange er lauft) oder?