[Евгений79]

Код:

function test:Tstrings
begin
 result:=TStringsList.Create;
 result.add('over 1gb text'); // Ж)
end;

procedure blabla;
var
 t:TStrings;
begin
 t:= test;
 memo1.lines.addStrings(t);
 t.free;
end;

t - как видно освобождаем из памяти,
а вот функцию test нет.
Или же все нормально?