delphi7 type中出现TIntegerField TStringField等，影响运行速度
我做了一个界面，用了比较多的button adodate等，但是在运行的时候发现在unit中type中出现了如下的代码：
type
ADODataSet1pro_serial: TIntegerField;
ADODataSet1st_pro_id: TStringField;
ADODataSet1pro_name: TStringField;
ADODataSet1pro_goods_style: TStringField;
ADODataSet1pro_color2: TStringField;
ADODataSet1pro_size2: TStringField;
ADODataSet1pro_price_normal: TBCDField;
ADODataSet1number: TBCDField;
而且运行速度也变慢了，其中 这个界面的formcreat代码是：
procedure Tsaleform.FormCreate(Sender: TObject);
begin
edit7.Text:='';
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=false;
showdbgrid;
dzh;
end;
其中showdbgrid 和dzh 是调用的 过程
我以为就是type中多了以上的代码所以影响速度，因为别的界面中同样用到adodate类 type中不会有 Tinteger Tstring等内容
但是我注销掉这些内容的时候，运行会报错 ：
---------------------------
Debugger Exception Notification
---------------------------
Project HLApos.exe raised exception class EClassNotFound with message 'Class TIntegerField not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
求各位高手教我怎么修改，谢谢
[解决办法]
formcreat执行时间长，那你把form上涉及数据库连接的控件的连接先禁掉看看呢
