Mostrar resultado de query en tLabel o tmemo

[[ElKurgan]]

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