Procedure Parameter in Pointer sichern

[ozz]

Hallo zusammen,
ich möchte gerne den Parameter ContentStream in einen Pointer sichern, damit ich diesen mit TList verwenden kann. Das das Beispiel unten falsch ist weiß ich, jedoch weiß ich nicht, wie ich es richtig machen kann. Hat jemand noch eine Idee?

Besten Dank!

Delphi-Quellcode:

Type PStringStream = ^TStringStream;
....
FResultlist: TList;
....
procedure ThreadResult(ContentStream: TStringStream;);
var P:PStringStream;
begin
  New(p);
  p^:=ContentStream; //<-- Ich weiß, daß dies falsch ist!
  FResultlist.Add(p);