Exemplos Excel

var linha, coluna : integer;
var planilha : variant;
var valorcampo : string;
begin
 Query1.CachedUpdates := true;
 planilha:= CreateoleObject('Excel.Application');
 planilha.WorkBooks.add(1);
 planilha.caption := Exportando dados do dbGrid para o Excel';
 planilha.visible := true;

 Query1.ApplyUpdates;
 Query1.First;
 for linha := 0 to Query1.RecordCount - 1 do
 begin
   for coluna := 1 to Query1.FieldCount do
   begin
     valorcampo := Query1.Fields[coluna - 1].AsString;
     planilha.cells[linha + 2,coluna] := valorCampo;
   end;
   Query1.Next;
 end;
 for coluna := 1 to Query1.FieldCount do
 begin
   valorcampo := Query1.Fields[coluna - 1].DisplayLabel;
   planilha.cells[1,coluna] := valorcampo;
 end;
 planilha.columns.Autofit;