将 ADOstoredproc1.Parameters.ParamValues['@for']:=1;
改成
   ADOstoredproc1.Parameters.CreateParameter('@for',
        ftInteger, pdInput, 0, 1);
试一下,好了告诉我!
/**************************************/
/*              学无止境              */ 
/**************************************/