Stream mit Indy versenden

[Spurius]

Hallo,
ich versuche mit folgendem Code einen Stream mit Indy zu versenden:

Delphi-Quellcode:

Sourcecode: 
procedure TForm1.ServerExecute(AThread: TIdPeerThread); 
var Big: Integer; 
    RecInfos: TMemoryStream; 
    Test: Integer; 
begin 
 Big := Athread.Connection.ReadInteger;    // Größe von Car.Munition 
 RecInfos := TMemoryStream.Create; 
 Athread.Connection.ReadStream(RecInfos, Big);     //Hier soll der Stream gelesen werden 
 Test := RecInfos.Read(Car.Munition, Big); 
 Menup.Caption := IntToStr(Test); 
end; 

procedure TForm1.Timer2Timer(Sender: TObject); 
Var Infos: TMemoryStream; 
begin 
 Infos := TMemoryStream.Create; 
 Infos.WriteBuffer(Car.Munition, SizeOf(Car.Munition));    //Car.Munition ist ein Integerwert 
 Client.WriteInteger(SizeOf(Car.Munition));                    //Hier soll die Größe des Streams an den Server übermittelt    
 Client.WriteStream(Infos,true,True,0);                         //werden 
end;

Leider ist die Menup.Caption 0. Ich kenn mich mit Streams nicht wirklcih aus, deshalb kann es sein, dass ich mit dem Stream was falsch mache.
Gruß
Spurius