求助动态生成TADOStoredProc

Question

implementation{$R *.dfm}
var
   ADOSP:TADOStoredProc;
procedure TForm1.Button1Click(Sender: TObject);
begin
     ADOSP:=TADOStoredProc.Create(self);
     ADOSP.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=try;Data Source=10.85.38.221';{我的连接字符串}
     ADOSP.ProcedureName:='CheckPwd_User_IM,1';{我的存储过程名}
     ADOSP.CommandTimeout:=30;
     ADOSP.Parameters.CreateParameter('@UserID',ftInteger,pdInput,SizeOf(StrToInt(Edit1.Text)),OleVariant(StrToInt(Edit1.Text)));
     ADOSP.Parameters.CreateParameter('@Password',ftString,pdInput,Length(Edit2.Text),OleVariant(Edit2.Text));
     ADOSP.Open;
     ADOSP.Prepared:=True;
     ADOSP.ExecProc;{这句报错，说‘语法错误或违反访问规则’}
     showmessage(ADOSP.FieldValues['Password']);
     ADOSP.Close;
end;
想动态生成TADOStoredProc，但是报错了，请各位大虾帮帮忙: )

Answer 1

第四格个参数的大小应该是存储过程定义的长度,并不是传入值的长度.
你的Password参数是不是输出参数,如果是第三个参数应改成 pdOutput