Асинхронная ошибка

Вопрос: Почему не работает следующий код?

     begin

       ClietnSocket1.Open;
       if
 ClietnSocket1.Socket.Connected then

         ClietnSocket1.Socket.SendText('Hello');
       {..}
     end
;
     // Выдает - ассинхронная ошибка.

Вы работаете в ассинхронном режиме. Следует использовать соответсвующие события.

Другое по теме:

• CrtSock - модуль для работы с сокетами в Delphi32
• TServerSocket и TClientSocket без scktsrvr.exe отказываются работать
• Использование ServerSocket и ClientSocket