except //добавил для исключения утечки памяти, NLObP FreeMem(OldFunction, 255); Exit; end; //добавил для исключения утечки памяти, NLObP FreeMem(OldFunction, 255);