Edit Feld auf Null Prüfen

[Zeb22]

Ich möchte das Edit Feld auf Null prüfen. Oder besser gesagt, wenn keine Eingabe in das Edit Feld eingeht, soll das System nicht gleich abrechen, wenn man den Button betätigt.

Brauch Hilfe.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type Werte = Array[1..30,1..3] of string;

var
  Form1: TForm1;
  zahl1 : double;
  n: integer;
  ard: Werte;



implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin

 zahl1 := StrToFloat(Edit1.Text);

 if edit1.Text = ''
  then
   begin
    Showmessage('Geben Sie bitte einen Wert ein');

    end;


 if zahl1 = 4
  then begin
   ShowMessage('Genau richtig');
   end
   else
   if zahl1 < 4
    then
     begin
     showmessage('viel zu klein');
   end else
   if zahl1 > 4
      then begin
     showmessage('viel zu groß');
      end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;

end;

end.