[pijo]

El problema de que sólo te enseñe un registro lo tienes en el while (creo), tú has escrito:

Empezado por momo

Código Delphi [-]
  while qryProduct.Eof do
  begin
   ShowMessage(Format('%s', [
            qryProduct.FieldByName('product_name').AsString ]));
  qryProduct.Next;
  end;

Cuando yo supongo que tendria que ser:

Empezado por momo

Código Delphi [-]
  while not qryProduct.Eof do
  begin
   ShowMessage(Format('%s', [
            qryProduct.FieldByName('product_name').AsString ]));
  qryProduct.Next;
  end;

Un consejito, si no tienes que crear campos calculados o lookup te recomendaria que no definieras los campos de la consulta, ya que si no tienes ninguno definido, en el momento de abrir la consulta te los crea dinámicamente según el resultado de la consulta.

ánimos