解释下下面的代码的意思

procedure Tfm_main.autoreconnect;
begin
  try
  Data_sys.SimpleObjectBroker1.SetConnectStatus(Data_sys.DConn.Host,false);
  fm_main.getnewserver;
  except
  begin
  showmessage('连接失败,没有找到任何可用的服务器!');
  fm_main.resetserverstatus;
  end;
  end;
end;

procedure Tfm_main.getnewserver;
//var mHost:string;
begin
  with Data_sys do
  begin
  DConn.Connected:=false;
  DConn.Host:=SimpleObjectBroker1.GetComputerForProgID('columbus.MDataModule');
  DConn.Connected:=true;
  StatusBar1.Panels[0].Text:='状态：['+data_sys.DConn.Address+'] 服务器连接成功！';
  end;
end;

procedure Tfm_main.resetserverstatus;
begin
  with Data_sys.SimpleObjectBroker1 do
  begin
  SetConnectStatus(Servers.Items[0].ComputerName,true);
  SetConnectStatus(Servers.Items[1].ComputerName,true);
  SetConnectStatus(Servers.Items[2].ComputerName,true);
  SetConnectStatus(Servers.Items[3].ComputerName,true);
  end;
end;

略懂··但不是太懂···感觉这代码写得不怎么好啊···懂的来点评下··

感觉 Data_sys.SimpleObjectBroker1.SetConnectStatus(Data_sys.DConn.Host,false);
  fm_main.getnewserver;这一句不应该放在fm_main.getnewserver;前面啊····还有 showmessage('连接失败,没有找到任何可用的服务器!');这一句之后又出现
  下面这个fm_main.resetserverstatus;怎么回事？

你都不明白人家的 意思，你凭什么说不好

所以说我略懂···觉得不好··求懂的人来点评下 ···不然我发帖干嘛呢··