[ecfisa]

Hola de nuevo.

Para no dejar las tareas a medias, un ejemplo usando un TDBGrid con una sola columna, asociado a un TADOQuery y un TADODataSet asociado a la tabla destino.

Código Delphi [-]
procedure SaveCol(aGrid: TDBGrid; const ColNro: Integer;
  aDataSet: TADODataSet; const TargetFieldName: string);
var
  BM: Pointer;
  s : string;
begin
  // Armar cadena desde la tabla destino
  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;
  // Guardar resultado en campo de tabla destino
  with aDataSet do
  begin
    Append;
    FieldByName(TargetFieldName).AsString := s;
    Post;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveCol(DBGrid1, 0, ADODataSet1, 'NAME');
end;

El ejemplo está probado y funcionando.


Saludos.