OK endlich habe ich es geschafft ich habe aber den folgenden Code verwendet:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c : Real;
begin
a:= strtofloat(edit1.Text);
b:= strtofloat(edit2.Text);
c:= a/b;
if b = 0 then ShowMessage('Durch NULL darf nicht dividiert werden!') else
begin
c:= a/b;
Edit3.Text := floattostr(c);
end;
end;
end.