Очердная проблема творчества

Есть хранимая процедура, в которой в цикле производится выборка данных, которые "выплевываются" наружу suspend-ом ...
Строк в таблице много и если я запускаю процедуру в IB_Expert (там же её и созадю), то видно весь набор в табличке.

...
for
SELECT POLE1
FROM TABLE
INTO :POLE1
do
begin
suspend;
end
...

Никак не получается получить набор этих данных в приложении Delphi
Пробовал и через TpFIBStoredProc, и через TpFIBDataSet ...

Стандартный прием

while Procedure.Eof do
begin
....
здесь работаем с данными
....
Procedure.Next;
end;

выводит только первую запись из набора и потом ошибку о том, что не может взять следующую запись т.к. закрыт DataSet в Procedure

Если сделать через TpFIBDataSet с запросом SELECT * FROM название_процедуры

while DataSet.Eof do
begin
....
здесь работаем с данными
....
DataSet.Next;
end;

то вообще не ругается, но и ничего не ввыводит ...

Помогите, пож-та, советом или примером !

НЕ ИСПОЛЬЗУЙ TIbStoredProcedure! Никогда!!!
Ibase.ru
Делай в TIbQuery 'select * from MyStoredProc', потом Open и будет тебе щастье!