falsche Eingaben abfedern

[semo]

ich habe mir folgende kleine methode zusammengebastelt:

Code:

procedure TForm.EditOnExit(Sender: TObject);
var
  value: Double;
  code: Integer;
begin
  try
    Val(TEdit(Sender).Text, value, code);
    if code <> 0 then
      raise EInvalidArgument.Create('Sie haben einen falschen Wert angegeben!');
    TEdit(Sender).Color := clWhite;
  except
    TEdit(Sender).Color := clRed;
    TEdit(Sender).SetFocus;
  end;
end;

Der Anwender wird wird bei einer Falscheingabe gezwungen
einen richtigen Wert einzugeben, bevor er im Programm weiter arbeiten kann.
Kenntlich wird das ganze durch die Rotmarkierung des Edits gemacht.