Integer übers Netzwerk versenden

[mumu]

ich verwende die indy komponenten idudpclient und idupdserver. alle clients senden ab und zu den wert einer integer variablen an den server. nur leider kommt immer irgendein komischer wert an...

SERVER:

Delphi-Quellcode:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var anzahl: integer;
begin
  AData.Read(anzahl,sizeof(integer));

  Showmessage(inttostr(anzahl));
end;

CLIENT:

Delphi-Quellcode:

var anzahl: integer;
begin
  anzahl := 3;
  stream := tmemorystream.Create;
  stream.WriteBuffer(anzahl, sizeof(integer));
  IdUDPClient1.SendBuffer(server, port, stream, sizeof(stream));
end;

danke schonmal