非常非常急的求助，各位大哥帮我看看下面这个问题把，谢谢！

Question

procedure TSetGiftAbateFavourForm.Button1Click(Sender: TObject);
begin
     DataModuleForm.ADOStoredProc1.Close;
     DataModuleForm.ADOStoredProc1.ProcedureName:='ProcSelectGiftAbateFavourTable_on_FavourableTypeId';
    DataModuleForm.ADOStoredProc1.Parameters.Clear;
    DataModuleForm.ADOStoredProc1.Parameters.CreateParameter('@FavourableTypeId',ftstring,pdinput,50,trim(edit1.Text));
    DataModuleForm.ADOStoredProc1.Open;
end;提示的错误是：
Build
  [Error] SetGiftAbateFavour.pas(144): Undeclared identifier: 'pdinput'
  [Fatal Error] GameSys.dpr(17): Could not compile used unit 'SetGiftAbateFavour.pas'
我真的找不到是那里里错了，我想这段程序应该是没有错的，也许是错误在别地方啊？谢谢！

Answer 1

是pdiuput不认识。uses ADOdb;

Answer 2

太感谢  gzmhero(hihihi) ，g961681(PerryWang) ，cdsgajxlp(起名很难)  三位大哥了！
谢谢！