[Gravitas]

Код:

function TForm1.test(list: TStringList): TStringList;
begin
Result.Add('Some string');
end;


Memo1.Text:=test(text.Text);