关于SimpleObjectBroker的用法（我只能写这么一点代码再往下去我就不知道怎么做了）(100分)

我想在系统运行后在客户端上选择几台应用服务器，
我用SimpleObjectBroker来做容错和平衡。但我不知道怎么样才能动态的选择
我的中间服务器？
请各位大虾能给去详细的代码？
另：我的意思是想---几台中间服务器的名字是根据我输入的地址来保存在ini文件中，
再把他们写到SimpleObjectBroker1.server中的
我的一些代码，
var SER : TServerCollection;
s:string;
Ini:TIniFile;
begin
SimpleObjectBroker1.Servers:=ser;
inputquery('应用服务器名称','地址：',s);
end;

请各位大虾能给去详细的代码？谢谢你们！！

我是有几台中间服务器的；
请各位帮忙

密切关注！
其实本人想更进一步，因为SimpleObjectBroker是放在客户端的，
能否在加入一个新的中间服务器的时候自动刷新（通知）客户端的SimpleObjectBroker
列表，而不将中间服务器的名称固定在客户端。

ini文件：
[AppServer]
ComputerNum=3
ComputerName1=Computer1
ComputerName2=Computer2
ComputerName3=Computer3
程序如下：
procedure TForm1.Button2Click(Sender: TObject);
var
MyIni : TIniFile;
i,ComputerNum: Integer;
ComputerName : String;
ItemComputer : TServerCollection;
Item1 : TServerItem;
begin
if FileExists(ExtractFilePath(Application.Exename)+'myapp.ini') then
begin
MyIni:=TIniFile.Create(ExtractFilePath(Application.Exename)+'myapp.ini');
ComputerNum:=MyIni.ReadInteger('AppServer', 'ComputerNum', 0);
for i:=0 to ComputerNum-1do
begin
ComputerName:=MyIni.ReadString('AppServer', 'ComputerName'+IntToStr(i+1), '');
if ComputerName<>'' then
begin
SimpleObjectBroker1.Servers.ComputerName:=ComputerName;
ShowMessage(SimpleObjectBroker1.Servers.ComputerName);
end
else
showmessage('Computer is null');
end;
end
else
begin
ShowMessage('Files error');
close;
end;
end;
我已经测试过了，希望对你有帮助。

To whg972
谢谢
等我有时间试试。我再加分！！！