Вопросы становятся все более интересными...
Если я тебя правильно понял
Код:
function test(AList: TStrings): String;
begin
AList.Add('1111');
Result := AList.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text := test(memo1.Lines);
end;
ЗЫ
смысл такой процедуры не подскажешь?