Tastaturverarbeitungsereignis(Taste und Dauer des Drucks)

[Preddy2005]

Hallo erstmal!

Nach langem lesen in verschiedenen Foren und stöbern im Internet wende ich mich jetzt mal an euch...

Delphi-Quellcode:

procedure TfrmTitel.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  Tastendruck_Anfang       := GetTickCount;
  Schiffsaktionen(Key,frmTitel,Shift);  // SCHIFFFUNKTIONEN.PAS // Hier werden die Keys weiterverarbeitet , irrelevant hoffe ich

end;

{**********************************************************************************
**********************************************************************************}

procedure TfrmTitel.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

 Tastendruck_Ende := GetTickCount;

 Differenz_Tastendruck  := ((Tastendruck_Ende - Tastendruck_Anfang) div 1000) ;
 edtTastenDruckSek.Text := IntToStr(Differenz_Tastendruck);

end;

{**********************************************************************************
**********************************************************************************}

Nun meine Fragen:

1.Wieso kommt in dem Editfeld immer 0 raus?
2.Hat jemand eine bessere Idee wie man das mit der Zeitmessung machen kann?
Am besten einfacher...


Hoffe ihr könnt mir helfen.Danke im voraus für den Aufwand und die Mühe.