[ecfisa]

Hola.

Código Delphi [-]
procedure SaveCol(aGrid: TDBGrid; const ColNro: Integer; 
  aDataSet: TDataSet; const aFieldName: string);
var
  BM: Pointer;
  s : string;
begin
  with aGrid.DataSource.DataSet do
  begin
    DisableControls;
    BM := GetBookmark;
    try
      First;
      while not Eof do
      begin
        s := s + aGrid.Columns[ColNro].Field.AsString + ',';
        Next;
      end;
      SetLength(s,Length(s)-1);
    finally
      GotoBookmark(BM);
      FreeBookmark(BM);
      EnableControls;
    end;
  end;
  with aDataSet do
  begin
    Append;
    FieldByName(aFieldName).AsString := s;
    Post;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
  // Se supone a DataSet1 abierto
  SaveCol(DBGrid1, 1, DataSet1, 'Campo');

Saludos