Помогите исправить ошибки в программе

[Gambit90]

Собственно, нужно решить квадратное уравнение a2x-bax-c=0(a в степени 2x минус ba(a в степени x) минус c равно 0) в среде Delphi и отладить программу

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
a,b,c,y,x1,x2,:Real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
y:=StrToFloat(Edit1.text);
b:=StrToFloat(Edit2.text);
c:=StrToFloat(edit3.text);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
var d,Log,:real;
begin
                label7.Caption:='';
                label10.Caption:='';
                label11.Caption:='';
  if (y>0) then begin
            d:=b*b-4*y*c;
            if d>=0 then
                      begin
                          y1:=(-b-sqrt(d))/(2*y);
                          y2:=(-b+sqrt(d))/(2*y);
                label9.Caption:='уравнение имеет два корня';
                label10.Caption:=floatToStr(x1);
                label11.Caption:=floatToStr(x2);
                      end
          then
          begin
               x1,2:=Loga y
                label9.Caption:='уравнение имеет два корня' ;
                label10.Caption:=floatToStr(x1);
                label11.Caption:=floatToStr(x2);
          end end
     else if (b:=0) else
                      begin
      else
          if (c:=0) then
                    begin
                    y*y:=c
                    then
                    begin
                     x:=Loga c/2
                     label9.Caption:='уравнение имеет один корень';
                         label10.Caption:=floatToStr(x1);
                          label11.Caption:=floatToStr(x2);
                          end

          end;

end;

end.

[kommunist]

Вот решает квадратное уравнение

uses

  Windows, Messages, SysUtils, Variants, Classes,
  Graphics, Controls, Forms, Dialogs, StdCtrls;


type
 TForml = class(TForm)
 Editl: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 Label1: TLabe1;
 Label2: TLabe1;
 Label3: TLabe1;
 Label4: TLabe1;
 Button1: TButton;
 Label5: TLabel;
 procedure ButtonlClick(Sender: TObject);

 private

{ Private declarations } 

public

{ Public declarations } 

end;
var
Form1: TForm1;


implementation


{$R *.dfm}

// решает квадратное уравнение

procedure SqRoot(a,b,c : real; var xl, x2 : real; var ok : boolean); 

{ a,b,c — коэффициенты уравнения x1,x2 — корни уравнения
ok = True — решение есть ok = False — решения нет } 

var
  d : real; // дискриминант begin
  d:= Sqr(b) - 4*a*c; if d < 0 then
  ok := False // уравнение не имеет решения 
  else
begin
  ok := True;
  xl := (-b + Sqrt(d)) / (2*a); x2 := (b + Sqrt(d)) / (2*a) ; 

end;
end;

procedure TForml.ButtonlClick(Sender: TObject); 
var
 k1,k2: real; // корни уравнения
 rez: boolean; // True —решение есть, False —решения нет 
 mes:  string; // сообщение 
begin
 SqRoot(StrToFloat(Editl.Text), StrToFloat(Edit2.Text) ,
 StrToFloat(Edit3.Text) , k1,k2,rez);

if rez then
 mes := 'Корни уравнения' + #13 + 'x1='+FloatToStrF(kl,ffGeneral, 4,2)+#13 + 'x2='+FloatToStrF(k2,ffGeneral,4,2) + #13 
else
 mes := 'Уравнение не имеет решения'; 
 labels.Caption := mes;
end;
end.