Warten bis Event OnKeyDown abgearbeitet ist

[concept2015]

Ich kenne mich in Foren leider noch nicht so gut aus, was das Schreiben betrifft
Codeformatierung ? über Code einfügen ? sieht alles gleich aus
Ahh ... hat geklappt !

Umsetzung für Sonderzeichen ????
Hier ?

Code:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    // Tasteneingabe nur Numerisch
      if not (key in [#8,#13,#48..#57]) then key := #0;
end;