procedure TForm1.Button1Click(Sender: TObject);
 var a,b,c : real;
 Delta,x1,x2 : real;
begin
 a := StrToCurr(Edit1.Text);
 b := StrToCurr(Edit2.Text);
 c := StrToCurr(Edit3.Text);
 Delta := b*b - 4*a*c;
 if Delta < 0 then
 Edit4.Text := 'ليس لها حل'
 else
 begin
 x1 := (-b-sqrt(Delta))/(2*a);
 x2 := (-b+sqrt(Delta))/(2*a);
 Edit4.Text := CurrToStr(Delta);
 Edit5.Text := CurrToStr(x1);
 Edit6.Text := CurrToStr(x2);
 end;
end;