кто нибудь до вечера может сделать?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x1, x2 : real;
  a, b, c : real;
  d :real;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  c := StrToFloat(Edit3.Text);
 
  D := sqr(b)-4*a*c;
    If d<0 then
      ShowMessage('Äèñêðèìèíàíò <0, óðîâíåíèå ðåøåíèÿ íå èìååò')
    else
      begin
        x1 := (-b+sqrt(d))/2*a;
        x2 := (-b-sqrt(d))/2*a;
          ShowMessage('x1= '+FloatTostr(x1)+' x2= ' +FloatToStr(x2));
      end;
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 if MessageDlg('Âû óâåðåíû ÷òî õîòèòå âûéòè', MtWarning,[MbYes,MbNo],0) = mrYes
    then Form1.Close;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure SqrUravnenie(A,B,C:Real;var x1,x2:Real;var S:String);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Button1.Caption:='Посчитать';
  Label1.Caption:='A';
  Label2.Caption:='B';
  Label3.Caption:='C';
end;
 
Procedure TForm1.SqrUravnenie(A,B,C:Real;var x1,x2:Real;var S:String);
var
  D:Real;
Begin
  D:=Sqr(B)-4*A*C;
  If D>=0 Then
  Begin
    x1:=(-B+Sqrt(D))/2*A;
    x2:=(-B-Sqrt(D))/2*A;
  End;
  If D=0 Then S:='D=0 => Уравнение имеет 1 корень';
  If D>0 Then S:='D>0 => Уравнение имеет 2 корня';
  If D<0 Then S:='D<0 => Уравнение не имеет корней';
End;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x1,x2:Real;
  S:String;
begin
  SqrUravnenie(StrToFloat(edit1.Text),
               StrToFloat(edit2.Text),
               StrToFloat(edit3.Text),x1,x2,S);
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  If S='D=0 => Уравнение имеет 1 корень' Then
  Begin
    Edit1.Text:=FloatToStr(x1);
    Edit2.Text:=S;
  End;
  If S='D<0 => Уравнение не имеет корней' Then Edit1.Text:=S;
  If S='D>0 => Уравнение имеет 2 корня' then
  Begin
    Edit1.Text:=FloatToStr(x1);
    Edit2.Text:=FloatToStr(x2);
    Edit3.Text:=S;
  End;
end;
 
end.