Fórum Procedure nao esta retornando o valor #240406

Caros amigos, nao aguento mais apanhar desse jeito, alguem me ajude ou eu desisto de procedures, infelizmente, pois achei a ideia genial...

Bom estou usando Firebird 1.5 criei uma procedure da seguinte forma:
=============================================
CREATE PROCEDURE PROC_SOMAITEM (
NOTA_NUMERO INTEGER,
NOTA_DATA DATE)
RETURNS (
VALOR_TOTITEM DOUBLE PRECISION)
AS
BEGIN
SELECT SUM(ITEM_QTDE * ITEM_VALUNIT) as valor_totitem FROM nfa_itemnota
WHERE NOTA_NUMERO = :nota_numero and NOTA_DATA = :nota_data
INTO :valor_totitem;
EXIT;
END
=============================================
blz, testei passando parametros no IBEXPERT, deu o resultado que eu queria, funcionou blz...,mas...

qdo. vou para o delphi faço o seguinte:
=============================================
SQLProc1.Prepared:=True;
try
SQLProc1.Params[0].AsInteger:= StrToInt(FlatEdit1.Text);
SQLProc1.Params[1].AsDateTime:= StrToDateTime(FlatMaskEdit1.Text);
SQLProc1.ExecProc;
FlatSpinEditFloat1.Value:=SQLProc1.Params[2].AsFloat;
finally
SQLProc1.Prepared:=False;
end;
=============================================
simplesmente, nao acontece nada, nao tem resultado de nada..., o que pode estar acontecendo, meus amigos e minhas amigas de desenvolvimento...