关于服务器联接配置，代码求分析

关于服务器连接配置，代码求分析
void __fastcall TConfigure_Form::Button_TestClick(TObject *Sender)
{
   char tpath[255];
   String spath,tspath,kpath;
   TIniFile *MyInt;       //INI文件变量;       （为什么需要新建一个INI文件来进行变更）
   if (FileExists("server.INI"))
    //检测有没有INI文件
    {
       GetWindowsDirectory(tpath,255);                             //获得系统路径
       spath = StrPas(tpath);                                      //char 转换为 String
       tspath = ExtractFilePath(Application->ExeName);             //获得当前路径
       kpath = tspath+"\server.INI";                               //设置INI文件名
       MyInt =  new TIniFile(ChangeFileExt( kpath, ".INI" ) );     //MYINT读取当前文件
       
       MyInt->WriteString("Database","User ID",Edit_User->Text);
       MyInt->WriteString("Database","Password",Edit_Password->Text);
       MyInt->WriteString("Database","Data Source",Edit_Source->Text);
       MyInt->WriteString("Database","Initial Catalog",Edit_Catalog->Text);

       AnsiString str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" + Edit_User->Text + ";" + "Password=" + Edit_Password->Text + ";Initial Catalog=" + Edit_Catalog->Text +";Data Source=" + Edit_Source->Text + ";";
       Main_Form->SqlServerConn->Connected=false;
       Main_Form->SqlServerConn->ConnectionString = str;
       try
       {
          Main_Form->SqlServerConn->Connected = true;
          ShowMessage("连接测试成功！");
       }
       catch(Exception *ex)
       {
          MessageBox(NULL,ex->Message.c_str(),"异常对话框",MB_OK);
       }
       
       delete MyInt;
       MyInt = NULL;
    }
    else
    {
      MessageBox(NULL ,"找不文件server.ini 无法进行数据库连接配置！" ,"异常对话框" ,MB_OK);
    } //检测有没有INI文件

}