Delphi Aufgabe - Prämien

[haui95]

So, endlich fertig und hoffentlich richtig

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Dauer, Alter :Word;
  Praemie :Currency;
begin
  Dauer := StrToInt( Edit1.Text );
  Alter := StrToInt( Edit2.Text );

  if ( Dauer < 10 )
    and ( Dauer > 0 ) then
      begin
        Praemie := 100;
          if ( Dauer > 3 ) then
            Praemie := Praemie + ( 50 * ( Dauer - 3 ) );
      end
  else
    begin
      Praemie := Dauer * 60;
    end;
  if ( Alter >= 50 ) then
    Praemie := Praemie + ( Praemie / 2 );

  Edit3.Text := FloatToStr( Praemie );
end;

Eine Frage habe ich dann doch noch ! Wie kann ich dem Programm eigentlich sagen, dass er mir bei Zahlen unter 0 eine Fehlermeldung (ShowMessage oder sowas ;D) ausgeben soll? Also die 3 Edit Felder dürfen keine negativen Zahlen beinhalten und auch nicht vom Programm akzeptiert werden.