如果监听端口被占用，依然会返回成功的问题

[im-starrain]

GateSocket.Start(
procedure(const AListen: ICrossListen; const ASuccess: Boolean)
begin
if not ASuccess then begin
Application.MessageBox('监听端口被占用，请更换监听端口后重新启动！！！', '提示信息',
MB_OK + MB_ICONERROR);
Exit;
end;
end
);

[im-starrain]

找到问题了。TSocketAPI.SetReUseAddr(LListenSocket, True); 修改为 TSocketAPI.SetReUseAddr(LListenSocket, False); 就可以了