[AND_REY]

Вот рабочий код:

procedure TForm1.Button1Click(Sender: TObject);
Var
a,b,c,P: Integer;
x1,x2: Double;
begin
a:= StrToInt(Edit1.Text);
b:= StrToInt(Edit2.Text);
c:= StrToInt(Edit3.Text);
P:= b*b-4*a*c;
if P < 0 Then
begin
ShowMessage('Отрицательный корень.');
Exit;
end;
x1:=((-b+(sqrt(P)))/2*a);
x2:=((-b-(sqrt(P)))/2*a);
Label1.Caption:= FloatToStr(x1);
Label2.Caption:= FloatToStr(x2);
end;