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