negative zahlen ausschliessen

[werso01]

danke fuer die hilfe, aber irgendwie funktionieren beide nicht:

Delphi-Quellcode:

procedure TFormKreis.ButtonRechneClick(Sender: TObject);
VAR Radius : REAL;
begin
   TRY
      Radius := StrToFloat(EditRadius.Text);
   EXCEPT
      Radius := 0;
      EditRadius.Text := '0';
   if Radius < 0   bzw Radius = '-'
   then
       Radius:=0;      
       EditRadius.Text:='0';
       ShowMessage ('Eingabefehler! Nur positive Zahlen dürfen eingegeben werden!')

   END;
   LabelErgUmfang.Caption := FloatToStrF (2*Radius*Pi,ffGeneral,6,0);
   LabelErgFlaeche.Caption := FloatToStrF (Radius*Radius*Pi,ffGeneral,6,0);
   EditRadius.SetFocus;
end;

so sieht die gesamte procedure aus.

gehoert das except weg?

ich habe leider keine ahnung - wie gesagt, bin anfaenger

[edit=Luckie] Mfg, Luckie[/edit]