TMemoryStream -> Speicherwillkür?!

[trashcandesign]

Funktioniert leider beides nicht.

Was ich merkwürdig finde ist, dass bei:

Delphi-Quellcode:

function TMPConnection.MakeConnectionStream: TMemoryStream;
var
  TestStream : TMemoryStream;
  TestString : string;
begin
TestStream  := TMemoryStream.Create;
Result      := TMemoryStream.Create;
TestString  := 'TEST';
TestStream.Seek(0,soFromBeginning);
TestStream.Write(TestString, Length(TestString));

Result.Seek(0,soFromBeginning);
 Result.Write(TestString, Length(TestString));
end;

TestStream anscheind gefüllt wird, währen Result leer bleibt