Листинг 7

procedure TForm1.Button1Click(Sender: TObject);
   var
    RS      : _RecordSet;
    I,J     : Integer;
    NumRecs : Integer;
   begin
    RS := ADOCommand1.Execute;
    RS.MoveFirst;
   //
   // Очистим содержание таблицы
   //
    Spreadsheet1.ActiveSheet.Cells.Item[1, 1].Select;
    Spreadsheet1.ActiveSheet.UsedRange.Clear;
   //
   // Зададим заголовки колонок
   //
    J := 0;
    For I := 0 to RS.Fields.Count-1 do
    Begin
    Inc(J);
    Spreadsheet1.ActiveSheet.Cells.Item[1, J].Set_Value(   RS.Fields[I].Name)
    End;
   //
   // Занесем данные в ячейки
   //
    I := 1;
    While NOT RS.EOF do
    Begin
    For J := 1 to RS.Fields.Count do
    begin
     Spreadsheet1.ActiveSheet.Cells.Item[I+1, J].Set_Value(VarToStr(RS.Fields[J-1].Value));
    end;
    RS.MoveNext;
    Inc(I)
    End;
   
   NumRecs := I;
   end;