[karlaoax]

Viendo varios ejemplo de pasar una colsulta a un doc. de excel encontre lo siguiente: es que de una consulta que muestro en mi DBgris lo quiero pasar a Excel

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i, j:Integer;
Str:String;
TS:TStrings;
begin
// Inicializamos
Str := '';
// Para cada línea de las selecciondas El DBGRID no acepta SELECTION
for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do begin
// Si no es la 1ª linea, añadimos un salto de línea
if (i <> StringGrid1.Selection.Top) then begin
Str := Str + #13#10;
end;
// Para cada elemento dentro de la línea (celdas)
for j := 0 to (StringGrid1.Rows[i].Count - 1) do begin
// Si no es la primera celda, añadimos un separados
if (j <> 0) then begin
Str := Str + #9;
end;
// Construimos la cadena
Str := Str + StringGrid1.Rows[i].Strings[j];
end;

// (1) La guardamos en el clipboard (como texto)
Clipboard.AsText := Str; // En que parte declaro esto?
// (2) Para guardarloa fichero...
TS := TStringList.CReate();
TS.Text := Str;
TS.SAveToFile('c:\salida.csv');
TS.Free;
end;
end;