[GReddy]

Здравствуйте, прошу помочь я вот тут делаю программу для проверки в универ и у меня возникла проблема: программа отказывается запускаться в чем причина вот код (Красным я выделил то что он мне Делфи выделяет) и на всякий случай положил программу для более наглядного примера! Прошу помочь! Зарание благодарю всех кто мне поможет в моём нелегком начинании! )))

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Buttons;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    ADOTable4: TADOTable;
    ADOTable5: TADOTable;
    ADOTable6: TADOTable;
    ADOTable7: TADOTable;
    ADOTable8: TADOTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Button1: TButton;
    SBCheckRecord: TSpeedButton;
    SBCheckSelectedRows: TSpeedButton;
    SBCheckAll: TSpeedButton;
    SBUnCheckRecord: TSpeedButton;
    SBUnCheckSelectedRows: TSpeedButton;
    SpeedButton3: TSpeedButton;
    CBcyHSB: TCheckBox;
    CBcyVSB: TCheckBox;
    CBcyBoxes: TCheckBox;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CBcyHSBClick(Sender: TObject);
    procedure CBcyVSBClick(Sender: TObject);
    procedure CBcyBoxesClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SBCheckRecordClick(Sender: TObject);
    procedure SBUnCheckRecordClick(Sender: TObject);
    procedure SBUnCheckSelectedRowsClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SBCheckSelectedRowsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
 procedure TForm1.Button2Click(Sender: TObject);
begin
 Form2.Show;
end;
 procedure TForm1.CBcyHSBClick(Sender: TObject);
begin
  DBGrid1.HorizontalScrollBar:= CBcyHSB.Checked;
end;
  procedure TForm1.CBcyVSBClick(Sender: TObject);
begin
  DBGrid1.VerticalScrollBar:= CBcyVSB.Checked;
end;
  procedure TForm1.CBcyBoxesClick(Sender: TObject);
begin
DBGrid1.CheckBoxes.Visible:= CBcyBoxes.Checked;
end;
  procedure TForm1.SBCheckRecordClick(Sender: TObject);
begin
  if not DBGrid1.CheckBoxes.Visible
  then DBGrid1.CheckBoxes.Visible := true;
DBGrid1.CheckedList.CurrentRecordBookmarked := Sender = SBCheckRecord;
end;
  procedure TForm1.SBCheckSelectedRowsClick(Sender: TObject);
begin
if not DBGrid1.CheckBoxes.Visible
then DBGrid1.CheckBoxes.Visible := true;
DBGrid1.CheckSelectedRows(Sender = SBCheckSelectedRows);
end;
  procedure TForm1.SBCheckAllClick(Sender: TObject);
begin
if not DBGrid1.CheckBoxes.Visible
then DBGrid1.CheckBoxes.Visible := true;
Screen.Cursor := crHourGlass;
Table1.First;
while not Table1.Eof do
begin
DBGrid1.CheckedList.CurrentRecordBookmarked := Sender = SBCheckAll;
Table1.Next;
end;
Screen.Cursor := crDefault;
end;
end.