hmm ok das klappt schunmal mit der meldung,
so jetzt um das ganze abzuschließen wärs toll wenn mir no jemand sagen könnte wie ich dann diesen prozess abbreche denn nach erscheinen der message kommt die gleiche fehlermeldung wie ohne fenster^^.
hier noch mal mein code
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var a,b,c: real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
if b=0 then
showmessage('Durch "0" darf nicht geteilt werden!')
else;
c:=a/b;
edit3.Text:=floattostr(c);
end;
mfg konrad