[jachguate]

esta es mi idea:

Código SQL [-]
select xxx(8,888,1,3,3, :cod)
  from dual;

Código Delphi [-]
  Query1.Params.ParamByName('cod').AsInteger := 150;
  Query1.Open;
  Resultado := Query1.Fields[0].Value;

Hasta luego.