извращенцы. Учите матчасть.
1. У TMemo.Lines тип действительно TStrings, НО!!! реально там создается TStringList!!!
2. А чем тебя передача ссылки не устраивает???
Код:
procedure AddStringToList(var AList : TStrings; AStr : String);
begin
AList.Add(AStr);
end;
procedure TForm1.Button1Click(Sender : TObject);
begin
AddStringToList(Memo1.Lines,'string');
end;
Да, обычно тут var не нужен, но на всякий случай...