kā dabūt ClientSocket->Active=true servisa darbības laikā

Varbūt kādam ir bijusi līdzīga piereze, realizējot dažāda veida serverus, kas darbojas kā servisi, izmantojot dinamiski izveidotas ClientSocket komponentes.

Nav skaidrs, kā aktivizēt šo dinamiski izveidoto komponenti!

Parastajā aplikācijas programmas variantā viss ir elementāri atrisināms šādi:

ClientSocket->Active = true;
while(!ClientSocket->Active) {
       Application->ProcessMessages();
       //---tālāk seko timeout() pārbaude
}

Servisa gadījumā pašam servisam neeksistē metode ProcessMessages() tāpēc nav skaidrs kā būtu iespējams aktivizēt to ClientSocket komponenti.
Piebildīšu, ka arī ar Open() nestrādā, toties strādā statiskas ClientSocket komponentes gadījumā. Tas man neder!:(