Procedimiento Almacenado UPDATE no se ejecuta

[Rockin]

Lo estoy probando directamente desde el gestor de firebird (utilizo EMS Firebird Management), mi idea es llamarlo desde delphi, así desde el ClientDataSet:

Código Delphi [-]
with datDatos.CDSSesionPopup do
begin
                Close;
                CommandText:= 'execute procedure LOGIN_SUTIL (:ref)'                        
                Params.ParamByName('ref').AsInteger:= referencia;
                Execute;
end;

¿Es correcto?