[FlyInDream]

Вот вам процедура, которая перенесёт ваш грид в Exel:

Код:

procedure TFMain.OutToExel();
var
 XLApp, Sheet, Colum: Variant;
 i, j: 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;

  Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
  for I := 0 to table.RowCount - 1 do
      for j := 0 to table.ColCount - 1 do
          Sheet.Cells[i+1,j+1]:=table.Cells[j,i];
end;