Also DaddyH 's Quellcode kurz angepasst und ausprobiert.
Funktioniert nun wunderbar!
Vielen Dank an euch alle, für die schnelle Hilfe!
Delphi-Quellcode:
var a,b,c,d,f,g,h:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
g:= b/a/2;
h:= g*g-c/a;
if h<0 then
ShowMessage('Nicht Lösbar (Wurzel 0)')
else
begin
d:= -g+sqrt(h);
f:= -g-sqrt(h);
Edit4.Text:=FloattoStr(d);
Edit5.Text:=Floattostr(f);
end;