while( ! Terminated && ClientSocket->Connected ) // make sure connection is active
    {
        if( pStream->WaitForData(CLIENT_WAIT_TIME) ) // give the client CLIENT_WAIT_TIME seconds to start writing
        {
            try {
                // TWinSocketStream->Read() не генерира изключения !!!
                readBytes = pStream->Read( buffer, sizeof(buffer) );
                if( readBytes > 0 ) {
                    // Back again to Client ( echo )
                    pStream->Write( buffer, readBytes );

                    // Терминирам буфера с 0, за да стане валиден C низ, защото може и да не e :)
                    buffer[readBytes] = 0;

                    // Показвам получените данни като HEX
                    message = AnsiString( buffer );
                    Synchronize( myMemoReceiveHex );

                    // Показвам получените данни като string
                    message = ClientSocket->RemoteAddress + ":" + IntToStr(ClientSocket->RemotePort) + " - ";
                    message += AnsiString( buffer );
                    Synchronize( myMemoReceiveAscii );

                    message += "\n";
                    Synchronize( WriteToLogFile );

                    // now process the request
                    //...
                } else  {
                    // Защо трябва да затварям тук socket връзката ? Някаква причина
                    // да има ? Не съм прочел нищо от връзката, но значи ли това, че
                    // не съществува socket връзката.
//                  ::MessageBox(NULL,"Не съм прочел нищо от TWinSocketStream->Read()",szNameOfProgram,MB_OK|MB_ICONINFORMATION);
                    message = TDateTime::CurrentDateTime().DateTimeString();
                    message += ",ThreadID=" + IntToHex((int)ThreadID,4);
                    message += ", ! pStream->Read(buffer,sizeof(buffer))\n";
                    Synchronize( WriteToLogFile );
                    if( ClientSocket->Connected )
                        ClientSocket->Close();
                    if( ! Terminated )
                        Terminate();
                }
            }
            catch( ESocketError &exception )
            {
                message = TDateTime::CurrentDateTime().DateTimeString();
                message += ",ThreadID=" + IntToHex((int)ThreadID,4);
                message += ", Прихванато изключение в MyServerClientThread.cpp, " +
                            AnsiString(__FUNC__) + " " + exception.Message + "\n";
                Synchronize( WriteToLogFile );
                if( ClientSocket->Connected )
                    ClientSocket->Close();
                if( ! Terminated )
                    Terminate();
            }
        } else  {
            // Записвам в лог файла на сървъра, че с дадения клиент връзката
            // е разкъсана след зададения time out.
            if( ClientSocket->Connected )
                ClientSocket->Close();
            if( ! Terminated )
                Terminate();
            message = TDateTime::CurrentDateTime().DateTimeString();
            message += ",ThreadID=" + IntToHex((int)ThreadID,4);
            message += ", ! pStream->WaitForData(CLIENT_WAIT_TIME)\n";
            Synchronize( WriteToLogFile );                     
        }