1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

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;