Más bien, el miembro parameter de la clase TAdoStoredProcedure debe tener definida su propiedad Direcction de acuerdo a lo definido en el StoredProcedure.
Código Delphi
[-]
With AdspDatos.Parameters Do
If PsSp = 'SpActProAlExist' Then
Begin
clear;
CreateParameter('@PMenu',ftString,pdInput,25,PsMenu);
CreateParameter('@PProvee',ftString,pdInput,5,'');
CreateParameter('@PNomPro',ftString,pdInput,30,'');
CreateParameter('@PPosDesc',ftInteger,pdInput,6,0);
CreateParameter('@PPraMesInv',ftFloat,pdInput,6,0);
CreateParameter('@PPRAPtoReo',ftFloat,pdInput,6,0);
CreateParameter('@PUsuario',ftString,pdInput,15,'');
CreateParameter('@PPosDescExis',ftInteger,pdInput,6,0);
CreateParameter('@PMensaje',ftString,pdOutput,500,'');
End;