急！dbexpress与mssql连接的问题

Question

小弟最近正在使用dbexpress+mssql2000编写一高校某应用系统（c/s版）
在data module 的sqlconnection组件OnLogin事件中
编写如下代码
procedure TdmCreateDataBase.conCreateDBLogin(Database: TSQLConnection;
  LoginParams: TStrings);
var iFile:Tinifile;
begin
iFile := TIniFile.Create(ExtractFilePath(Paramstr(0))+'my.ini');
  with iFile do
  begin
 self.conCreateDB.Params.Clear;
 self.conCreateDB.Params.Values['DriverName']:= 'MSSQL';
 self.conCreateDB.Params.Values['HostName']:=ReadString('DB','HostName','');
  self.conCreateDB.Params.Values['database']:=ReadString('DB','database','');
   self.conCreateDB.Params.Values['user_name']:=ReadString('DB','userName','');
    self.conCreateDB.Params.Values['password']:=ReadString('DB','password','');
     self.conCreateDB.Params.Values['blobsize']:='-1';
     self.conCreateDB.Params.Values['ErrorResourceFile']:= '';
    self.conCreateDB. Params.Values['LocaleCode']:= '0000';
   self.conCreateDB. Params.Values['MSSQL TransIsolation']:= 'ReadCommited';
      self.conCreateDB.Params .Values['OS Authentication']:= 'False';
end;
   iFile.Free;
         self.conCreateDB.ConnectionName:= 'wk' + Trim(IntToStr(random(100000)));
      self.conCreateDB.DriverName:= 'MSSQL';
      self.conCreateDB.GetDriverFunc:= 'getSQLDriverMSSQL';
      self.conCreateDB.VendorLib:= 'oledb';
      self.conCreateDB.LibraryName:= 'dbexpmss.dll';
      self.conCreateDB.SQLHourGlass:= true;
      self.conCreateDB.KeepConnection:= false;
end;
在其他窗口中调用conCreateDB.open时老是报错
烦请各路高手指点，如何使用dbexpress在程序中动态连接mssql