Mostrar columna del dbgrid en un dbmemo

[ecfisa]

Hola.

Me parece mas simple mostrarlo en el Memo directamente desde una consulta.

Por ejemplo:

Código Delphi [-]
procedure EncolumnarMemo(const ColName:string; aQuery: TADOQuery; aMemo: TMemo);
begin
  aMemo.Lines.BeginUpdate;
  aMemo.Clear;
  try
    with aQuery do
    begin
      Close;
      SQL.Text := 'SELECT ' + ColName + ' FROM TU_TABLA';
      Open;
      while not Eof do
      begin
        aMemo.Lines.Add(FieldByName(ColName).AsString);
        Next;
      end;
      Close;
    end;
  finally
    aMemo.Lines.EndUpdate;
  end;
end;

Ejemplo del uso:

Código Delphi [-]
 
   EncolumnarMemo('NOMBRE_DEL_CAMPO',  ADOQuery1, Memo1);

Saludos.