ADO tiene un componente TAdoStoredProc. Configuralo con el nombre del procedimiento y ceará automáticamente los parámetros, tanto de entrada como de salida.
Así, podes finalmente tener algo como:
Código Delphi
[-]
spProcedimiento.Params.ParamByName('aaa').AsInteger := 1;
spProcedimiento.Params.ParamByName('bbb').AsInteger := 2;
spProcedimiento.Params.ParamByName('ccc').AsInteger := 3;
spProcedimiento.Params.ParamByName('ddd').AsInteger := 4;
spProcedimiento.ExecProc;
CodigoError := spProcedimiento.Params.ParamByName('codigo_error').AsInteger;
if CodigoError <> 0 then
raise EErrorEnProcedimiento.CreateFmt('Error No %d', [CodigoError]);
Hasta luego.
