Pete Williams wrote: > I'll post the code tomorrow, but before then... > > - The RTC component is on a TDataModule, which is created in the > Execute() method of the thread in which it runs. > - The Connect method is called from the same thread as it's > constructor, I'm not mixing threads.
You do not check message's HWND member. If your custom message IDs EMAIL_GATEWAY_TICK .. EMAIL_GATEWAY_QUIT are not unique they may conflict with message IDs used by TSmtpCli (or RTC?) internally. while not Terminated do begin if not GetMessage(Msg, 0, 0, 0) then break; if Msg.Hwnd = 0 then // PostThreadMessage() => destination HWND = 0 begin case Msg.Message of EMAIL_GATEWAY_TICK : ; [..] else TranslateMessage(Msg); DispatchMessage(Msg); end; end else begin // Dispatch window messages TranslateMessage(Msg); DispatchMessage(Msg); end; end; -- Arno Garrels -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be