Edit Eingabe nur auf Zahlen beschränken, Probleme mit ^

[Glühwürmchen]

Macht richtig Spaß zu lesen, was Euch alles für Tricks einfallen, um die angebotenen Lösungen auszuhebeln.
Bin gespannt, was gegen meine übliche Vorgehensweise spricht....:

Delphi-Quellcode:

procedure TfrmMain.Edit1Exit(Sender: TObject);
begin
  try
    StrToInt(Edit1.Text);
  Except
    Edit1.Text := '0';
    Edit1.SetFocus;
    Edit1.SelectAll;
  end;
end;

Edit: Gerne auch mit StrToFloat...