Es wäre bedeutend einfacher, wenn du gleich die Eingabe von Nicht-Zahlen bzw. Nicht-Zahlen ausgeschlossen dem Dezimalkomma verhinderst.
Das geht beispielsweise so:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var Style: DWord;
begin
Style:=GetWindowLong(Edit3.Handle, GWL_STYLE);
SetWindowLong(Edit3.Handle, GWL_STYLE, Style or ES_NUMBER);
end;
FormCreate ist das Ereignis, das beim Erstellen der Form ausgelöst wird.