高分求救，关于三层结构中分配IP的问题，分不够再加。

客户端设置注册表，写入主机。
uses Registry;
var Reg: TRegistry;
Reg := TRegistry.Create;
Reg.RootKey := KEY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\MyKey',True);
Reg.WriteString('MainHost','192.168.1.1');
Reg.Free;读取主机
var Reg: TRegistry;
    MainHost: String;
Reg := TRegistry.Create;
Reg.RootKey := KEY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\MyKey',True);
MainHost := Reg.ReadString('MainHost'); //192.168.1.1
Reg.Free;用MainHost连接。修改了主机后，直接在客户端修改注册表就可以了。也可以用文件形式。