Ошибка в обработке кнопки при выводе отчета в Excel

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Jpeg, IniFiles, StrUtils, Vcl.StdCtrls,
  Vcl.Mask, Vcl.DBCtrls, Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids,
  Data.Win.ADODB, Unit2, ComObj, ActiveX;
 
type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    ADODataSet2: TADODataSet;
    DataSource2: TDataSource;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    DBNavigator1: TDBNavigator;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Image1: TImage;
    Button3: TButton;
    procedure ADODataSet2AfterScroll(DataSet: TDataSet);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ADODataSet1AfterScroll(DataSet: TDataSet);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure Image1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOConnection1BeforeConnect(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
         aPath: string;
         procedure ShowImage(img: string);// отображает картинку в поле Imagе.
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
 
// начало работы программы
 
 
procedure TForm1.ADOConnection1BeforeConnect(Sender: TObject);
var
p1,p2: integer;
IniFile: TIniFile;
fn: string; // имя INI-файла
st: string; // строка соединения
begin
// INI-файл должен находиться в том же каталоге, что и EXE-файл
// программы работы с БД  и его имя совпадает с именем EXE-файла
p1 := Pos('.exe', Application.ExeName);
fn := Copy(Application.ExeName, 1, p1-1) + '.ini';
IniFile := TIniFile.Create(fn);
// ключ aPath находится в секции data
aPath := IniFile.ReadString('data','aPath','');
if aPath = '' then
MessageDlg('Нет файла: '+ fn ,mtError,[mbOk],0);
st := ADOConnection1.ConnectionString;
p1 := Pos('Data Source',st);
p2 := PosEx(';',st,p1);
Delete(st,p1,p2-p1);
Insert('Data Source='+ aPath+ 'prodazhy.mdb',st,p1);
ADOConnection1.ConnectionString := st;
end;
 
 
 
procedure TForm1.ADODataSet1AfterScroll(DataSet: TDataSet);
var
img: string;
begin
if ADODataSet2.RecNo <> -1 then
begin
if ADODataSet2.FieldValues['img'] <> Null then
img := ADODataSet2.FieldValues['img']
else
img := '';
ShowImage(img);
end
end;
// отображает иллюстрацию
 
 
procedure TForm1.ADODataSet2AfterScroll(DataSet: TDataSet);
 var
img: string;
begin
if ADODataSet2.RecNo <> -1 then begin if ADODataSet2.FieldValues['img'] <> Null then
img := ADODataSet2.FieldValues['img']
else
img := '';
ShowImage(img);
 end;
 end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal; // отобразить форму "Найти"
if Form2.ModalResult = mrOk then
// пользователь ввел критерий запроса и нажал кнопку OK
begin
// фильтр
ADODataSet1.Filtered := False;
ADODataSet1.Filter :='name Like ''%' + Form2.Edit1.Text + '%''';
ADODataSet1.Filtered := True;
if ADODataSet1.RecordCount < 0 then
begin
// в базе данных нет записей, удовлетворяющих критерию запроса
ADODataSet1.Filtered := False;
ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.Filtered := False;
end;
 
 
procedure TForm1.Button3Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;    // Тип данных Variant может принимать
// любые значения
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application');  // Создаем объект EXCEL и     // записываем его в переменную XLApp.
XLApp.Visible:=true;                           // Делаем  объект EXCEL видимым
XLApp.Workbooks.Add(-4167) ;        // Создаем новую книгу Excel.
// Число (-4167)  константа, означающая  создание книги. Не  изменять!
 
XLApp.Worksheets[1].Name: ='Отчет';  // Название Отчет         // первому листу книги
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns; // указатель на //столбцы листа
 
// Устанавливаем ширину столбцов 15, где будут данные
Colum.Columns[0].ColumnWidth:=20;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=10;
Colum.Columns[3].ColumnWidth:=20;
            Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows; //указатель  на строки
// Форматируем первые две строки
Colum.Rows[2].Font.Bold:=true;                // строка 2  жирный шрифт
    Colum.Rows[1].Font.Bold:=true;             //строка 1  жирный шрифт
    Colum.Rows[1].Font.Color:=clBlue;       // строка 1  синий цвет
    Colum.Rows[1].Font.Size:=14; // строка 1  размер шрифта 14
 Sheet:=XLApp.Workbooks[1].Worksheets['Отчёт']; // указатель на лист с названием 'Отчет' книги Excel
// Заполняем ячейки первых двух строк (шапка отчета)
Sheet.Cells[1,2]:='Имя';
Sheet.Cells[2,1]:='Фамилия';
Sheet.Cells[2,2]:='Отчество';
Sheet.Cells[2,3]:='Группа';
index:=3;  // номер строки, куда заносятся данные отчета
ADODataSet1.First; // курсор на начало первой записи в таблице запроса
  // Цикл по записям запроса в ADODataSet1, пока не будет конец файла
 
 while not  ADODataSet1.EOF do
 
begin  // Заполняем ячейки Excel данными
Sheet.Cells[index,1]:=ADODataSet1. Fields. Fields [0] .AsString;
Sheet.Cells[index,2]:=ADODataSet1.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=ADODataSet1.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=FormatDateTime('1dddddd',ADODataSet1.Fields.Fields[4].AsDateTime);
Inc(index); // Увеличиваем переменную index на 1
ADODataSet1. Next; // Перемещаемся на следующую запись
end;
end;
 
 
end;
 
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
case Button of
nbInsert, nbDelete, nbEdit:
begin
DBEdit1.ReadOnly := False;
DBEdit2.ReadOnly := False;
Image1.Enabled := True;
if Button = nbInsert then
ShowImage('nobody.jpg');
end ;
nbPost, nbCancel:
begin
DBEdit1.ReadOnly := True;
DBEdit2.ReadOnly := True;
DBEdit3.ReadOnly := True;
Image1.Enabled := False;
end ;
end;
end;
// щелчок в поле компонента Image (выбор картинки)
 
 
// щелчок на кнопке "Все записи"
 
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  aPath :='C:\курсач\';
 try
ADOConnection1.Open;
ADODataSet1.Active := True;
 ADODataSet2.Active := True;
except
on e:Exception do begin
 DBGrid1.Enabled := False;
 DBEdit1.Enabled := False;
DBEdit2.Enabled := False;
DBNavigator1.Enabled := False;
 MessageDlg('Нет файла C:\курсач\tab.mdb', mtError, [mbOk], 0);
 end;
end;
 
end;
 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if ADODataSet1.State = dsEdit then // пользователь не завершил
// редактирование
begin
// записать редактируемую запись
ADODataset1.UpdateBatch(arCurrent);
end;
 
end;
 
procedure TForm1.Image1Click(Sender: TObject);
var
nFileName: string;
begin
OpenDialog1.FileName := '*.jpg';
if OpenDialog1.Execute then
begin
// пользователь выбрал изображение
nFileName := ExtractFileName(OpenDialog1.FileName);
CopyFile(PChar(OpenDialog1.FileName),
PChar(aPath + 'images\'+ nFileName), false);
ShowImage(nFileName);
ADODataSet2.FieldValues['img'] := nFileName;
end;
end;
// завершение работы программы
 
 
procedure TForm1.ShowImage(img: string);
begin
if img = '' then
img := 'nobody.jpg';
try
Image1.Picture.LoadFromFile(aPath+'images\'+img);
finally
end;
end;// добавляем просто из ворда
// щелчок на кнопке компонента DBNavigator
 
 
 
 
 
end.

XLApp.Worksheets.Name: ='Отчет'