Mit Verlaub, wie soll denn dies das beschriebene, konkrete Problem lösen können ?
So schnell, wie unter Windows der Tastaturpuffer verarbeitet, also wieder geleert wird, kann keiner eintippen. Da kann man de facto keine sinnvollen Fragmente der Eingaben in das Editfeld "on the fly" abfangen. Und was sollte dann der leere Tastaturpuffer aussagen ?
Wenn man absolut keinen Timer (on the fly!) verwenden will, könnte man eigentlich nur die fertige Eingabe im Editfeld abwarten, die ja entweder (implizit) durch ein abschließendes RETURN oder (explizit) durch ein Verlassen des Editfeldes signalisiert wird:
Code:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then Edit1Exit(Sender);
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
DoSearch(StrToInt(Edit1.text)); // oder welche Aufgabe sonst
end;