[[ElKurgan]]

También podrías hacer algo como esto:

Código Delphi [-]
 
var
  i: Integer;
  Cadena: String;
begin
  Memo1.Lines.Clear;
  QrProducto.First;
  While not QrProducto.Eof do
  begin
    Cadena := '';
    for i := 0 to QrProducto.FieldCount - 1 do
      Cadena := Cadena + QrProducto.Fields[i].AsString + ' - ';
    Memo1.Lines.Add(Cadena);
    QrProducto.Next;
  end;
end;

Un saludo