A este procedimiento le pasas la consulta y un Tstrings, que puede ser un TstringList como "Memo1.Lines"
Código Delphi
[-]procedure MostrarDatos(Consulta: TDataset; Lista: Tstrings);
var
i: Integer;
Linea: string;
begin
Consulta.First;
While not Consulta.Eof do
begin
Linea := '';
For i := 0 to Consulta.FieldCount - 1 do
Linea := Linea + ' ' + Consulta.Fields[i];
Lista.Add(Linea)
Consulta.Next;
end;
end;
Espero que te sirva.
Un saludo