Возврат TStringList из функции. Warnings

[Shouldercannon]

Хочу получить от функции ответ типа TStringList

function Test: TStringList;
begin
  Result.Add('second string');
end;

procedure TForm27.Button2Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  SL.Text := Test.Text;
  ShowMessage(SL.Text);
  FreeAndNil(SL);
end;

Код работает, но напрягает предупреждение [dcc32 Warning] Unit27.pas(43): W1035 Return value of function 'Test' might be undefined

Как правильно организовать передачу TStringList из функции?
Стоит ли пользоваться данным способом?

function GetStringList: TStringList;
begin
  Result := TStringList.Create;
  Result.Add('an item') ;
end;
...
var
  SL : TStringList;
begin
  SL := GetStringList;
  try
    ShowMessage(SL[0]) ;
    // или, например,
    // ListBox1.Items.Assign(SL) ;
  finally
    FreeAndNil(SL);
  end;
end;

[evg_m]

как правило лучше ПЕРЕДАТЬ этот список как параметр для заполнения и использовать БАЗОВЫЙ тип(TStrings)

procedure test(x: TStrings);
begin
  x.Add('....');
end;

  ....
  Test( ListBox1.Items ); // ЭТО все что может остаться в основном коде

begin
  sl:=TStringList.Create;
  try
    Test(sl);
    ShowMessage(sl.strings[0]);
  finally
    sl.Free;
  end;
end;

если нужна именно строка с "построчным" заполнением, можно так

function Test: string;
var
   x: TStringList;
begin
  x:=TstringList.Create;
  result:='';
  try
  x.Add('....');
...
  result:=x.Text;
  finally
  x.Free;
  end;
end;

....
ListBox1.Items.Text:=Test;