[delphi-br] Stored Com MDO(TMDOStoredProc) ?

[ajama_1]

Essa "FUNÇÂO DELPHI" abaixo está retornando da minha procedure do 
firebird o parametro "IN_TABLE" quando na verdade deveria devolver o 
parametro "COD". Não entendo !!! Alguem pode me ajudar ?

//MINHA PROCEDURE NO FIREBIRD
CREATE PROCEDURE SP_IFTABEXIST (IN_TABLE VARCHAR(10))
RETURNS (COD INTEGER)
AS
BEGIN
SELECT COUNT(RDB$RELATION_NAME) FROM rdb$RELATION_FIELDS
WHERE RDB$RELATION_NAME = :IN_TABLE into :COD;
END

//FUNÇÂO DELPHI
begin
//Preparando Database
    mdtbs1.Connected := false;
    mdtbs1.DatabaseName := 'c:\f.fdb';
//Preparando Stored
    mdstrdprc1.StoredProcName := 'SP_IFTABEXIST';
    mdtbs1.Connected := True;
//Parametros de envio
    if mdstrdprc1.Params.Count > 0 then
    begin
      mdstrdprc1.Prepare;
      for i := 0 to mdstrdprc1.ParamCount - 1 do
      begin
        mdstrdprc1.Params[i].Value := Parametros.Strings[i];
      end;
    end;
//Execultando Procedure
    mdstrdprc1.ExecProc;

//Parametros de Retorno
    for i := 0 to mdstrdprc1.Params.Count - 1 do
     lbl1.Caption := mdstrdprc1.Params.ParamByName(mdstrdprc1.Params
[i].Name).AsString);

end;