Fórum Dúvida em dica de exp. do delphi para excel #290031

procedure TForm1.GerarExcel(Consulta:TQuery);
var
   coluna, linha: integer;
   excel: variant;
   valor: string;

begin
try
      excel:=CreateOleObject(´Excel.Application´);
      excel.Workbooks.add(1);
   except
      Application.MessageBox (´Versão do Ms-Excel´+
      ´Incompatível´,´Erro´,MB_OK+MB_ICONEXCLAMATION);
   end;

Consulta.First;
   try
      for linha:=0 to Consulta.RecordCount-1 do
      begin
         for coluna:=1 to Consulta.FieldCount do
         begin
            valor:= Consulta.Fields[coluna-1].AsString; excel.cells [linha+2,coluna]:=valor;
         end;
         Consulta.Next;
      end;
      for coluna:=1 to Consulta.FieldCount do
      begin
         valor:= Consulta.Fields[coluna-1].DisplayLabel;
         excel.cells[1,coluna]:=valor;
      end;
      excel.columns.AutoFit;
      excel.visible:=true;
   except
      Application.MessageBox (´Aconteceu um erro desconhecido durante a conversão´+
      ´da tabela para o Ms-Excel´,´Erro´,MB_OK+MB_ICONEXCLAMATION);
   end;
end;