TDCOMConnection问题，100分

Question

我用TClientDataSet、TDCOMConnection连接服务器端的TDataSetProvider，运行正常。但我想当服务器换另一台COMPUTER时客户端不用修改代码，该如何给TDCOMConnection动态赋值？
以下是我的源码：
  TReg:=TRegistry.Create;
  TReg.RootKey:=HKEY_LOCAL_MACHINE;
  TReg.OpenKey('\Software\MyApplication',True);
  ServerName:=TReg.ReadString('ServerName');  //取服务器名
  TReg.CloseKey;
  TReg.Free;
  if ServerName='' then
    showmessage('请输入服务器名！')
  else
  begin
      dm.ComCon.Connected:=false;
      oldServerName:=Dm.ComCon.ComputerName;
      Dm.ComCon.ComputerName:=ServerName;
      Dm.ComCon.Connected:=true;
  end;
dm.ComCon.Connected:=false;语句开始执行错误。各位大虾请出招！！！！

Answer 1

dm.ComCon.Connected:=false;
oldServerName:=Dm.ComCon.ComputerName;
Dm.ComCon.ComputerName:=ServerName;
Dm.ComCon.servername:='xxxxxxxx';   /////////++
Dm.ComCon.Connected:=true;