Problem mit einer Stringlist und Pointern

[Klaus01]

var Lst: TStringlist;
begin
Lst := TStringList.Create;
Lst.Clear;
Rekursiv(FRoot,Lst);
Result := Lst; // Das Result ist leer, und list ist auch leer, obwohl an #1 mein Hinzugefügter EIntrag zu sehen ist
Lst.Free; // meines Erachtes löscht Du hiermit auch die Referenz auf die Result zeigt.
end;

Delphi-Quellcode:

var Lst: TStringlist; 
begin 
  result:=TStringList.create;
  Lst := TStringList.Create; 
  Lst.Clear; 
  Rekursiv(FRoot,Lst); 
  Result.Text := Lst.Text;   
  Lst.Free; 
end;

Grüße
Klaus