delphi - 超字节 ICS NOFORMS 模式

Question

我正在尝试在 Delphi 控制台应用程序（服务）中使用 Overbyte ICS TWsocket。我已经设置NOFORMS了条件。但是在 Connect 连接没有转到wsConnected它挂起的wsConnecting状态并且操作以Async socket error 10053结束。

我尝试在 aOnMessagePump中使用ProcessMessages()，MessageLoop()但它没有改变任何东西。

这是代码的一部分

inherited Create(nil);
Self.OnDataAvailable := MyOnReceive;
Self.OnChangeState := MyOnStateChange;
Self.OnMessagePump := MyMessagePump;
Addr := AIpAddress;
Port := IntToStr(AConnectionInfo.Port);
Proto := AConnectionInfo.Proto;
ComponentOptions := [wsoTcpNoDelay];

如何在带有 NOFORMS 的控制台应用程序中正确使用 TWsocket？