if then problem beim taschenrechner

[mkinzler]

Delphi-Quellcode:

if b=0 then
   showmessage('Durch "0" darf nicht geteilt werden!')
else
begin
   c:=a/b;
   edit3.Text:=floattostr(c);
end;