🚀 go-pugleaf

I have TClientSocket in ctBlocking mode.

How can I reduce the time for waiting for the
connection to be established.

In ctNonBlocking mode I use something like this:

   ClientSocket->Active = true;
   int ms_start = GetTickCount();
   while ( GetTickCount() - ms_start < 1000 )
   {
      Forms::Application->ProcessMessages();
      if ( ClientSocket->Active )
         break; // Speed-up if the connection is establ.
   }

   if ( !ClientSocket->Active )
   {
      // Not connected during one second ...
      // etc, ...


In ctBlocking mode this (of course) does not work
nor the TTimer (?!). It seems that timer is also 'dead'
while ...

   ClientSocket->Active = true;

...is not finished. What can I do? Maybe some real thread...

Also, when I decide to abandon the process of connecting,
how can I really stop it. Should I use

   ClientSocket->OnError( this,0,0,0 );

or just

   ClientSocket->Active = false;




Best regards,
Vladimir Stefanovic