[Lost_Fish]

Сообщение от poli-smen

Даже в этом коротком примере могут произойти исключения.

тогда

Код:

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

будет разумным решением