Разберите код

[pusik]

procedure TForm1.Button1Click(Sender: TObject);
var
 XL, XArr: Variant;
 k: Integer;
 n: Integer;
begin
 {не забудьте включить ComObj в список используемых модулей}
 // Создаем массив элементов, полученных в результате запроса
 XArr:=VarArrayCreate([1,DBGrid1.FieldCount],varVariant);
 XL:=CreateOLEObject ('Excel.Application');     // Создание OLE объекта
 XL.WorkBooks.add;
 XL.visible:=true;

 n := 1;
 DBGrid1.FieldCount;
 while not DBGrid1.Eof  do
  begin
   k:=1;
   while k<=DBGrid1.FieldCount do
    begin
     XArr[k] := DBGrid1.Fields[k-1].Value;
     k := k+1;
    end;
   XL.Range['A'+IntToStr(n),
   CHR(64+DBGrid1.FieldCount)+IntToStr(n)].Value := XArr;
   Table1.Next;
   n:=n+1;
  end;
 XL.Range['A1',CHR(64+DBGrid1.FieldCount)+IntToStr(n)].select;
 // XL.cells.select;                     // Выбираем все
 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;

end;
end;

end.

Разжуйте каждую строчку дословно... Плиз)

[Zer0]

procedure TForm1.Button1Click(Sender: TObject); //обработчик события на нажатие кнопки
var
XL, XArr: Variant; //две переменные инвариантного типа (т.е. тип во время работы программы может принимать любой какой угодно)
k: Integer;
n: Integer;
begin
{не забудьте включить ComObj в список используемых модулей}
// Создаем массив элементов, полученных в результате запроса
XArr:=VarArrayCreate([1,DBGrid1.FieldCount],varVariant);
XL:=CreateOLEObject ('Excel.Application'); // Создание OLE объекта
XL.WorkBooks.add; //создаем новую книгу при работе с экселем
XL.visible:=true; //включаем отображение excel

n := 1;
DBGrid1.FieldCount;
while not DBGrid1.Eof do //пока не достигли последней строки результатов
begin
k:=1;
while k<=DBGrid1.FieldCount do //пока не дошли до последнего поля
begin
XArr[k] := DBGrid1.Fields[k-1].Value; //в массив загоняем данные из определенного поля
k := k+1;
end;
XL.Range['A'+IntToStr(n),
CHR(64+DBGrid1.FieldCount)+IntToStr (n)].Value := XArr;
Table1.Next; //переходим к следующей записи (стироке)
n:=n+1;
end;
XL.Range['A1',CHR(64+DBGrid1.FieldCount)+Int ToStr(n)].select; //в экселе выделяем ячейки начиная от A1, заканчивая буквой, соответствующей количеству полей и цифрой, соответствующей 
XL.Selection.Font.Name:='Arial cur'; //устанавливаем для выделенных ячеек шрифт
XL.Selection.Font.Size:=10; //размер шрифта
XL.selection.Columns.AutoFit; //выставляем форматирование ячеек "Растягивать по ширине"
XL.Range['A1','A1'].select; //выделяем ячейку A1

end;
end;

end.

[pusik]

Спасибо огромное))) осталс лишь один вопрос? почему делфи выдает ошибку на эту строчку:
while not DBGrid1.Eof do //пока не достигли последней строки результатов

[pusik]

А все разобрался))) Еще раз спасибо за объяснение)

[pusik]

Закройте тему)))) Ответ дан)