TStrings übergeben

[jjep]

Hallo zusammen

In meinem Programm möchte mit einer Funktion TStrings zurückgeben, wie folg:

Delphi-Quellcode:

function TForm1.getStrings:Tstrings;
var Liste: TStrings;
begin
Liste := TStringlist.Create;
Try
  Liste.Add('erste Zeile');
  Liste.Add('zweite Zeile');
  Liste.Add('dritte Zeile');
  result := TStringlist.create;
  result.AddStrings(Liste);
finally
  Liste.Free;
end;
end;

Ist es notwendig "result" zu kreiren? logisch ohne gehts nicht, aber gäbes nicht eine ander möglichkeit die Strings zu übergeben?