p-g Formel rechner

[ibp]

.. so würde ich das machen (ohne ausgabenformatierung)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  p,q,a,b: real;
begin
  if trystrtofloat(edit12.Text,p) and trystrtofloat(edit12.Text,q) then
  begin
    a:=-p/2;
    b:=sqrt(sqr(a)-q);
    label1.Caption:=floattostr(a+b);
    label2.Caption:=floattostr(a-b);
  end
  else
    Application.MessageBox('Kein Werte angegeben', 'Fehler', MB_OK + MB_ICONERROR)
end;