Texteingaben sowie leerstellen ausschliessen

[Joecker]

ok ich habs bisher erstmal soweit geschafft dass er es mir anzeigt wenn ich keine zahl eingeb durch folgenden befehl

procedure TForm1.Edit1Change(Sender: TObject);
begin
try (strtofloat(Edit1.Text))
except
On EConvertError do messagedlg('Dies ist keine Zahl!',mtInformation,[mbOK],0);
end;

end;

leider crasht mir der debugger trotzdem wenn ich keine zahl eingebe auch wenn er mit danach noch die msg zeigt. ich weiss das man das mit dem debugger umstellen kann will ich aber nicht machen
deswegen die frage ob ich diesen crash und das rauswerfen aus dem programm verhindern kann?