TMemoryStream -> Speicherwillkür?!

[trashcandesign]

Irgendwie komm ich mit dem befüllen eines TMemoryStreams nicht klar.

Folgende Prozedur:

Delphi-Quellcode:

procedure FillStream(AStream: TMemoryStream);
var
  TestStream : TMemoryStream;
  TestString : string;
begin
 TestStream  := TMemoryStream.Create;
 TestString  := 'TEST';

 TestStream.Write(TestString, Length(TestString));
end;

Klappt anscheinend, aber sobald ich am Ende der Prozedur der Variablen AStream TestStream zuweisen möchte:

  AStream := TestStream oder direkt AStream füllen lassen will

  AStream.Write(TestSTring, Length(TestString)); schreibt er mir nix rein?!