使用DataSnap做服务器，端口设置为可配置，然后在程序中动态指定：
procedure TscUPower.DataModuleCreate(Sender: TObject);
begin
dstUPower.Port:=DSPort;
end;
begin
dstUPower.Port:=DSPort;
end;
默认端口为211,测试改变端口，没有报告错误，但客户端连接不上。后调整为：
procedure TscUPower.DataModuleCreate(Sender: TObject);
begin
dstUPower.Stop;
dstUPower.Port:=DSPort;
dstUPower.Start;
end;
begin
dstUPower.Stop;
dstUPower.Port:=DSPort;
dstUPower.Start;
end;
OK，客户端可以正常连接了。
端口动态配置，为了避免可能存在的端口冲突。
注：dstUPower为TDSTCPServerTransport。