ошибка при запуске и нажатии кнопки (раннее созданной в проге и настроенной) в делфи
вот код
form3.Button1.click;
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Knigi';
Colum:=XLApp.Workbooks[1].WorkSheets['Knigi'].Columns; Colum.Columns[1].ColumnWidth:=22;
Colum.Columns[2].ColumnWidth:=15;
Colum.Columns[3].ColumnWidth:=15;
Colum.Columns[4].ColumnWidth:=15;
itog:=0;
Colum:=XLApp.Workbooks[1].WorkSheets['Knigi].Rows;
Colum.Rows[3].Font.Bold:=true;
Colum.Rows[3].Font.Size:=12;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[2].Font.Size:=12;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Knigi];
Sheet.Cells[1,1]:='№ ';
Sheet.cells[1,2]:= form3.DBGrid1.Fields[0].AsInteger ;
Sheet.Cells[2,1]:='book';
sheet.cells[2,2]:=form3.DBGrid1.Fields[1].AsDateTime;
Sheet.Cells[3,1]:='book_name';
Sheet.Cells[3,2]:='author';
Sheet.Cells[3,3]:='genre';
Sheet.Cells[3,4]:='selling_price';
index:=4;
DataModule1.ADOQuery1.First;
for i:=0 to DataModule2.ADOQuery2.RecordCount-1 do
begin
Colum.Rows[index].Font.Size:=12;
Sheet.Cells[index,1]:=form3.DBGrid1.Fields[2].AsString;
Sheet.Cells[index,2]:=form3.DBGrid1.Fields[3].AsFloat;
Sheet.Cells[index,3]:=form3.DBGrid1.Fields[4].Asinteger;
Sheet.Cells[index,4]:=form3.DBGrid1.Fields[5].Asfloat;
itog:=itog+ form3.DBGrid1.Fields[5].Asfloat ;
Inc(index);
ADOQuery1.Next;
end;
Colum.Rows[index].Font.Bold:=true;
Colum.Rows[index].Font.Size:=14;
sheet.cells[index,1]:='k oplate';
sheet.cells[index,4]:=itog;
end;
end.