пишу клиент — серверную прогу. Реализую через компоненты TClientSocket и TServerSocket. Клиент читает и пишет в режиме Blocking, т.е. Через TWinSocketThread для чтения сообщений сервера код следующий (он работает по обработке события OnConnect):

Глобальные переменные

var
  sktStream: TWinSocketStream;

procedure TForm1.sktConnect(Sender: TObject; Socket: TCustomWinSocket);
var s: PChar;
    i:integer;
begin
   Memo1.Lines.Add('Connection complite');
   sktStream:=TWinSocketStream.Create(Socket,6000);
   sktStream.Write('hello',5);
   while not sktStream.WaitForData(100) do
      Application.ProcessMessages;
   i:=sktStream.Read(s,1);
   Memo1.Lines.Insert(0,s);
end;

Но клиент получает какуюто абюрокадабру, хотя сервер получает слово "hello" нормально, подскажите что делать. Заранее благодарен