[v1s2222]

Не совсем то, что ты думаешь:
Memo.Lines типа TStrings, а Memo.Text: String.
И объясни смысл процедуры.

Код:

function test(list: tstrings): tstrings;
begin
result:=tstrings.create;
result.Assign(list);
result.Add('111');
end;