初学者写的程序帮忙看上哪里出错的

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, wwdbedit;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    ADOConnection1: TADOConnection;

    GroupBox1: TGroupBox;

    Label2: TLabel;

    Label1: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Button3: TButton;

    Button4: TButton;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    GroupBox2: TGroupBox;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Edit13: TEdit;

    Edit14: TEdit;

    Edit15: TEdit;

    Button5: TButton;

    Button6: TButton;

    ADODataSet1: TADODataSet;

    wwDBEdit1: TwwDBEdit;

    wwDBEdit2: TwwDBEdit;

    wwDBEdit3: TwwDBEdit;

    wwDBEdit4: TwwDBEdit;

    wwDBEdit5: TwwDBEdit;

    wwDBEdit6: TwwDBEdit;

    wwDBEdit7: TwwDBEdit;

    wwDBEdit8: TwwDBEdit;

    wwDBEdit9: TwwDBEdit;

    wwDBEdit10: TwwDBEdit;

    wwDBEdit11: TwwDBEdit;

    wwDBEdit12: TwwDBEdit;

    wwDBEdit13: TwwDBEdit;

    wwDBEdit14: TwwDBEdit;

    wwDBEdit15: TwwDBEdit;

    wwDBEdit16: TwwDBEdit;

    ADODataSet2: TADODataSet;

    procedure Button2Click(Sender: TObject);



    procedure Button6Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);



  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button2Click(Sender: TObject);

var

  sSQL: String;

  sSQL1: String;

begin

if (trim(Edit2.Text) <> '') or (trim(Edit2.Text) <>'')or(trim(Edit2.Text)<>'') then