var
exam_subject,course_code :string;
blank1,blank2,blank3 :integer;
.
.
.
.
ADOStoredProc1.Parameters.Clear;
           ADOStoredProc1.Parameters.CreateParameter('@tablename',ftstring,Pdinput,20,self.Edit1.Text);
           ADOStoredProc1.Parameters.CreateParameter('@exam_subject',ftstring,Pdinput,20,exam_subject);
           ADOStoredProc1.Parameters.CreateParameter('@course_code',ftstring,Pdinput,20,course_code);
           ADOStoredProc1.Parameters.CreateParameter('@blank1',ftinteger,Pdinput,4,blank1);.
.
.
提示:应用程序目前操作所使用的值的类型不正确!!!
跟踪时错在最后一句
           ADOStoredProc1.Parameters.CreateParameter('@blank1',ftinteger,Pdinput,4,blank1);
什么原因?