Экспорт в Excel

[Gapro]

Вот участок кода, при компиляции ошибок не выдает, но при запуске этой процедуры возникает ошибка "Project Project1.exe raised exeption Class ELIstError with Message 'List Index about of bound (2)'. Process stoped Use ... to continue "

var
 XLApp,Sheet,Colum:Variant;
 index,i:Integer;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns; 
 Colum.Columns[1].ColumnWidth:=20;
 Colum.Columns[2].ColumnWidth:=20;
 Colum.Columns[3].ColumnWidth:=20;
 Colum.Columns[4].ColumnWidth:=20;
 Colum.Columns[5].ColumnWidth:=20;

 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
 Colum.Rows[2].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clBlue;
 Colum.Rows[1].Font.Size:=14;

 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 Sheet.Cells[1,2]:='Анализ по городам';
 Sheet.Cells[2,1]:='Город';
 Sheet.Cells[2,2]:='Число корреспондентов';

 index:=3;
 FindQuery3.First;
 for i:=1 to FindQuery3.RecordCount do
  begin
   Sheet.Cells[index,1]:=FindQuery3.Fields.Fields[1].AsString;
   Sheet.Cells[index,2]:=FindQuery3.Fields.Fields[2].AsString;
   FindQuery3.Next;
  end;

Укажите пожалуйста на ошибку.

[vasek123]

А можно, хотя- бы узнать обработчик событий?
Потом, какие объекты размещены на форме? Выложи хотя- бы, исходник полностью...

[Gapro]

Там просто небольшая база данных, а FindQuery3 - это ADOQuery с небольшим SQL Запросом

[dr.Chas]

Сообщение от Gapro

Там просто небольшая база данных, а FindQuery3 - это ADOQuery с небольшим SQL Запросом

Незнай у меня всё нормально отрабатывает. Единественное ты с индексами намудрил. Вот тут:

Sheet.Cells[index,1]:=FindQuery3.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=FindQuery3.Fields.Fields[2].AsString;

[Gapro]

Все, нашел ошибку, всем спасибо