Работа с сервером, Соединение с удалённым сервером и получение данных Опции

[kosyak]

Доброе время суток, господа программисты. Возникла следующая проблема: требуется соединится по http протоколу с удалённым сервером и организовать приём передач и данных с ним.
Суть в следующем: клиент отправляет серверу набор данных, сервер на это должен отправить другой набор...
На текущий момент это сделано следующим образом:

Код

  idTCPClient1.Host:='***.***.***.***';
  idTCPClient1.Port:=****;
  idTCPClient1.Connect(-1);

  stream:=TMemoryStream.Create;

  I:=26;
  stream.Write(i,4);
  I:=12345;
  stream.Write(i,4);
  s:='abracadabraabra';
  stream.Write(s,14);
  I:=12345;
  stream.Write(i,4);
  s:='';

  idTCPClient1.OpenWriteBuffer;
  idTCPClient1.WriteStream(stream);
  idTCPClient1.CloseWriteBuffer;

  stream.Free;
  stream:=TMemoryStream.Create;

  While idTCPClient1.Connected do
      idTCPClient1.ReadStream(stream,-1,true);
  idTCPClient1.Disconnect;

  SetLength(s,Stream.size);
  stream.Seek(0,soFromBeginning);
  stream.Read(i,4);
  stream.Read(j,4);
  stream.Read(s,6);
  memo1.Lines.Add(s);
  stream.Read(k,4);
  stream.Read(i,4);

  stream.Free;

Как я понял в stream должны оказатся данные полученные от сервера, но их там нет... в чем проблемма?

Заранее спасибо!!!!