Mira esta rutina que pasa datos de una rejilla al portapapeles con unos ligeros retoques ya tienes lo que quieres.
Código Delphi
[-]
var
i : integer;
Data : TDataSet;
begin
Data:=DBGRID1.DataSource.DataSet;
Data.First;
Clipboard.AsText := '';
while not(Data.eof) do
begin
for i := 0 to dbgrid1.Columns.Count-1
do
Clipboard.AsText:=Clipboard.AsText+
Data.FieldByName(DBGrid1.Columns[i].FieldName).asString+#9;
Clipboard.AsText:=Clipboard.AsText+#13;
Data.Next;
end;
end;
Un Saludo.