[cahp]

Hola,

te puede asegurar que :

Código SQL [-]
select *
from marcas

desde delphi con un ibquery y despues ibquery.open.

siendo marcas

Código SQL [-]
CREATE PROCEDURE MARCAS 
returns (MARCA VARCHAR(15))
AS 

begin
for
   select distinct Marca
   from productos
   into :Marca
do
   begin
      if (:Marca is null) then exit;
      suspend;
   end
end

funciona perfectamente, devuelve tantas lineas como hay distintas en la tabla productos.

Saludos.