Anfängerproblem !?

[DeddyH]

Da fehlen ein begin und ein end.

Delphi-Quellcode:

begin
  if edit3.text='0' then
    begin
      showmessage('Zahl 3 bitte ändern')
    end else
    begin //hier
      label1.Color:=clred;
      label1.Caption:= Floattostr(strtofloat(Edit1.Text)/strtofloat(edit2.text)/strtofloat(edit3.text));
    end; //und hier
end;