procedure TForm4.SpeedButton1Click(Sender: TObject);//Передаём данные в Excel
var
ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
BeginCol, BeginRow, i, j : integer;

begin
if Application.MessageBox('Для выполнения данной операции'#10#13'необходимо наличие Microsoft Excel'#10#13'Продолжить?', 'Предупреждение',MB_OKCANCEL or MB_ICONWARNING)= IDOK then
begin
RecPos:=Form1.Table36.RecNo;//Запоминаем указатель
ProgressBar1.Max := Form1.Table36.RecordCount;
Form1.DataSource1.DataSet.DisableControls;

// Координаты левого верхнего угла области, в которую будем выводить данные
BeginCol := 1;
BeginRow := 1;

// Создание Excel
ExcelApp := CreateOleObject('Excel.Application');

// Отключаем реакцию Excel на события, чтобы ускорить вывод информации
ExcelApp.Application.EnableEvents := false;

// Создаем Книгу (Workbook)
// Если заполняем шаблон, то Workbook := ExcelApp.WorkBooks.Add('C:\MyTemplate.xls');
Workbook := ExcelApp.WorkBooks.Add;

// Создаем Вариантный Массив, который заполним выходными данными
ArrayData := VarArrayCreate([1, Form1.Table36.RecordCount, 1, Form1.Table36.FieldCount], varVariant);

Form1.Table36.First;
// Заполняем массив
for I := 1 to Form1.Table36.RecordCount do
begin
for J := 1 to Form1.Table36.FieldCount do
ArrayData[I, J] := Form1.Table36.Fields[j-1].AsString;
ProgressBar1.Position := Form1.Table36.RecNo;
Form1.Table36.Next;
end;


StaticText1.visible := True;
Form4.Refresh;
ProgressBar1.Position := 0;
// Левая верхняя ячейка области, в которую будем выводить данные
Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
// Правая нижняя ячейка области, в которую будем выводить данные
Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + Form1.Table36.RecordCount - 1, BeginCol +
Form1.Table36.FieldCount - 1];

// Область, в которую будем выводить данные
Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

// А вот и сам вывод данных
// Намного быстрее поячеечного присвоения
Range.Value := ArrayData;

// Делаем Excel видимым
ExcelApp.Visible := true;

//FreeAndNil(ExcelApp);
//FreeAndNil(ExcelApplication);
Form1.Table36.MoveBy(RecPos - Form1.Table36.RecNo);//Восстанавливаем указатель
Form1.DataSource1.DataSet.EnableControls;
StaticText1.visible := False;


end;
end;

выкинь лишнее