procedure TfrmDataModule.DataModuleCreate(Sender: TObject);
var
 reg: TRegistry;
 lfIni: TiniFile;
 lsDBName, lsSQLServeIP, lsConnStr, lscpConnStr: string;
begin
 lfIni := TiniFile.Create(ExtractFileDir(Application.ExeName) + '\' +WideString('SysParams.ini'));
 SHSCon.Close;
 lsConnStr := 'Provider=SQLOLEDB.1;'
   + 'Password=' + lfIni.ReadString('option', 'SQLPassword', '')+ ';'
   + 'Persist Security Info=True;'
   + 'User ID=sa;'
   + 'Initial Catalog=' + lfIni.ReadString('option', 'DataBase', '') + ';'
   + 'Data Source=' + lfIni.ReadString('option', 'ServerIP', '');
 lsSQLServeIP := lfIni.ReadString('option', 'ServerIP', '');
 SHSCon.ConnectionString := lsConnStr;
 SHSCon.Open;
 ///
end;