[marcoszorrilla]

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.