delphi - オーバーバイト ICS NOFORMS モード

Question

Delphi コンソール アプリケーション (サービス) で Overbyte ICS TWsocket を使用しようとしています。条件を設定NOFORMSしました。しかし、 Connect では、接続は状態wsConnectedでハングしwsConnecting、操作はAsync socket error 10053で終了しません。

で使用しようとしましたOnMessagePumpが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 を正しく使用するには?