Fórum Procedure com Returns #429614

Olá Pessoal, sou novato na área
gostaria que me ajudasse como executar uma procuedure com return no delphi
usando os componentes
SqlStoreProc dbexpress
DataSetProvider
ClientDataSet
DataSource
Firebird 2.1
delphi7

SEGUE A PROCUEDURE
create procedure CAIXA (
INICIO date,
FIM date)
returns (
DATA date,
RESUMO_MOV_MES varchar(50),
VALOR numeric(9,2),
SALDO numeric(9,2),
TIPO char(1),
HISTORICO VARCHAR(50))
as
declare variable SALDO_ANT_CREDITO numeric(9,2);
declare variable SALDO_ANT_DEBITO numeric(9,2);
BEGIN

/*Agora recuperamos a soma dos valores dos creditos anteriores ao
periodo informado*/
SELECT COALESCE(SUM(CX.VL_CREDITO),0)
FROM TB_CAIXA_TX_ADM CX
WHERE (CX.DT_MOV < :INICIO) AND (CX.TP_MOV = ''C'')
INTO :SALDO_ANT_CREDITO;

/*Primeiro recuperamos a soma dos valores dos debitos anteriores ao
periodo informado para posteriormente calcularmos nosso saldo inicial*/
SELECT COALESCE(SUM(CX.VL_DEBITO),0)
FROM TB_CAIXA_TX_ADM CX
WHERE (CX.DT_MOV < :INICIO) AND (CX.TP_MOV = ''D'')
INTO :SALDO_ANT_DEBITO;

/*Caso não haja lancamentos anteriores, a variavel ficara no estado NULL,
como no SQL qualquer operação matemática feita com valores NULL sempre
resulta em NULL, temos que verificar isso e atribuir 0.00 na variavel nula
para que forneça o resultado esperado. Isse será feito pela função COALESCE() */
DATA = :INICIO - 1;
RESUMO_MOV_MES = ''SALDO ANTERIOR'';
VALOR = 0;

/*Inicializando a variavel que armazenara o saldo final
com o valor do saldo anterior*/
SALDO = (SALDO_ANT_CREDITO - SALDO_ANT_DEBITO);

/*Por questões "estéticas" não queremos ter valores negativos no campo valor,
sendo assim, se o saldo anterior é negativo, devemos informar que o lançamento é
de débito e tornar o valor do saldo positivo, caso contratio informamos que o
lançamento é de crédito.*/
IF (:VALOR < 0) THEN
BEGIN
TIPO = ''D'';
VALOR = VALOR * -1;
END
ELSE
TIPO = ''C'';

SUSPEND; /*Retornando a primeira linha (registro) com o saldo anterior
o comando a seguir seleciona os registros dentro do periodo informado
buscando na tabela de contas a pagar*/

DATA = :INICIO;
WHILE (:DATA <= :FIM) DO
BEGIN
TIPO = ''D''; /*Estamos recuperando débitos*/
FOR SELECT CX.DT_MOV, CX.DESCRICAO,CX.NR_DOC, CX.VL_DEBITO
FROM TB_CAIXA_TX_ADM CX
WHERE (CX.DT_MOV = :DATA)
AND (CX.TP_MOV = ''D'')
AND COALESCE(CX.VL_DEBITO,0) > 0
INTO :DATA, :HISTORICO, :RESUMO_MOV_MES, :VALOR
DO
BEGIN
/*Subtraimos o valor do lançamento do saldo final*/
RESUMO_MOV_MES = :RESUMO_MOV_MES;
VALOR = :VALOR;
SALDO = SALDO - VALOR;

/*O suspend a seguir retorna uma "linha" contendo os campos
data, historico, tipo e valor que tem seus valores armazenados
nas variáveis de mesmo nome*/
SUSPEND;
END

TIPO = ''C''; /*Estamos recuperando créditos*/
/*seleciona os registros dentro do periodo informado
buscando na tabela de contas a receber*/
FOR SELECT CX.DT_MOV, CX.DESCRICAO, CX.NR_DOC, CX.VL_CREDITO
FROM TB_CAIXA_TX_ADM CX
WHERE (CX.DT_MOV = :DATA)
AND (CX.TP_MOV = ''C'')
AND COALESCE(CX.VL_CREDITO,0) > 0
INTO :DATA, :HISTORICO, :RESUMO_MOV_MES, :VALOR
DO
BEGIN
/*Adicionamos o valor do lançamento ao saldo final*/
SALDO = SALDO + VALOR;
RESUMO_MOV_MES = :RESUMO_MOV_MES;
VALOR = :VALOR;

/*O suspend a seguir retorna uma "linha" contendo os campos
data, historico, tipo e valor que tem seus valores armazenados
nas variáveis de mesmo nome*/
SUSPEND;
END

DATA = DATA + 1;
END

/*Montamos o ultimo "registro" que conterá os valores do saldo FINAL*/
IF (:SALDO < 0) THEN
BEGIN
TIPO = ''D'';
SALDO = SALDO * -1;
END
ELSE
TIPO = ''C'';

DATA = :FIM;
RESUMO_MOV_MES = ''SALDO FINAL'';
VALOR = 0;
SUSPEND;
END

GOSTARIA QUE RETORNASSE ESTE CAMPOS
DATA
RESUMO_MOV_MES
VALOR
SALDO
TIPO
HISTORICO
NO DATASOURCE
RETORNA VAZIO O QUE FAÇO?
GRATO A TODOS QUE COLABORAREM