INDY: IdTCPServer и IdTCPClient. Передача TStream

[SNUPY]

Доброго времени суток господа! Сразу предоставлю код:
код принятия потока

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  s: String;
  m:TMemoryStream;
begin
  m:=TMemoryStream.Create;
  AThread.Connection.ReadStream(m,3,false);
  setlength(s,3);
  m.Position:=0;
  m.Read(s[1],3);
  Form1.Caption:=s;
end;

код отправки потока

procedure TForm1.Button1Click(Sender: TObject);
var
  m:TMemoryStream;
begin
  IdTCPClient1.Port:=4003;
  IdTCPClient1.Host:='localhost';
  IdTCPClient1.Connect;
  m:=TMemoryStream.Create;
  m.Write('sss',3);
  IdTCPClient1.OpenWriteBuffer;
  IdTCPClient1.WriteStream(m,true,false,m.Size);
  IdTCPClient1.CloseWriteBuffer;
end;

Итак собственно вопрос? почему IdTCPServer1Execute два раза вызывается??? и во второй раз ждет отключения клиента??

[Квэнди]

потому что у вас отправляется 2 комманды. Точнее IdTCPClient1.OpenWriteBuffer; будет распознаваться как обращение.Вовсе не обязательно, кстати использовать методы серии WriteBuffer; просто отправляйте потоки
ждет отключения потому что вы его не делаете.

[SNUPY]

понятненько