TMemoryStream.Size = 0 efter jeg har brugt Write-proceduren

Hej Eksperter!

Jeg skal sende noget buffer via UDP, og har valgt at smide alt det der skal sendes ind i en TMemoryStream, hvorefter jeg bruger SendBuffer i UDP-komponenten. Til at skrive til TMemoryStream'et bruger jeg Write-proceduren...

Jeg vil gerne kunne opnå at have alt buffer inde i TMemoryStream.Memory^, men den er i følge Delphi tom, og TMemoryStream.Size = 0. Hvorfor det!?

Her er lidt kode:

var
  Stream: TMemoryStream;
  BufferInt: Integer;
begin
  Stream := TMemoryStream.Create;
  BufferInt := 214322;
  Stream.Write(BufferInt, SizeOf(BufferInt));
  UDP.SendBuffer(Host, DefaultPort, Stream.Memory^, Stream.Size);
  Stream.Free;
end;

//hermandsen