Code:
begin
if edit3.text='0' then
begin
showmessage('Zahl 3 bitte ändern')
edit3.SetFocus;
end else
begin
label1.Color:=clred;
label1.Caption:= Floattostr(strtofloat(Edit1.Text)/strtofloat(edit2.text)/strtofloat(edit3.text));
end;
end;
Du hast das begin-End beim Else vergessen. Als weitere Option würde sich ein edit3.SetFocus anbieten, damit der Cursor gleich wieder im Editfeld steht. Mit Edit3.SelectAll kannst Du dann den inhalt auch gleich markieren zum überschreiben...