Obtener varios registros de Stored Procedure

[Phacko]

Que tal foreros????? ya habia pegado un mensaje en el foro SQL al cual no recibi alguna contestación a lo que creo que no fue clara mi solicitud, la pongo ahora por aqui tratando de ser un poco mas claro, espero no romper con las reglas del Club y si es así ofresco mis disculpas, ya he borrado el mens del foro SQL. Ya he tratado de varias formas y no he obtenido los resultados esperados.

Hace un par de días trate de ayudar a un compañero aui en el club que preguntaba sobre obtener registros de un Procedimiento Almacenado, diciendole que yo habia empleado una consulta simple y me habia funcionado:

Select * From Procedi_Almacenado

y así fue, sólo que cometi el error de no comentar que este codigo lo ejecute en en el editor de SQL en IBExpert mientras hacia pruebas a la base de datos hecha en FB, pero despues al llegar a Delphi(6) me tope con el problema de que al querer meter el contenido de un campo de la base de datos en un ComboBox no obtengo valor alguno, usando el siguiente codigo en el IBQuery:

Código Delphi [-]
MOdulo.IBQuery.Close;
Modulo.IBQuery.SQL.Clear;
Modulo.IBQuery.Add(Select * From Marcas);
Modulo.IBQuery.ExecSql; Tambien trate con: Modulo.IBQuery.Exec SQL;

Me dio error indicandome que empleara Open, cambie ExecSql por Open y ya no me dio error pero tampoco me dio valores.

Intente con:

Código Delphi [-]
Modulo.IBStoredProc1.Prepare;
try
Modulo.IBStoredProc1.ExecProc;
CBMarca.Items.Add(Modulo.IBStoredProc1.ParamByName('Marca').AsString);
finally
Modulo.IBSPProdMarca.UnPrepare;
end;

y solamente me entrega un valor que es justo lo que he leido, pero también lei que para obtener varios registros se emplea una consulta, como la mencionada arriba, con lo que no estoy segura si la he implementado bien y/o si se emplea algun componente aparte. En el modulo tengo un IBDataBase, un IBTransaction, un IBStoredProc y un IBQuery.

Este es el Procedimiento almacenado:

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

Les agradesco de antemano alguna idea o pista que me puedan proporcionar.
Gracias