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.