[*Caro*]

Hola tebre, para recorrer lo que te devuelve tu consulta y recuperar debes hacerlo así:

Código Delphi [-]
 With Datos.QryProducto Do
  begin
   First;
   While Not Eof Do
    begin
      Showmessage(FieldByName('cantidad').AsString);
      Next;
    end;
  end;

Saluditos