[xkor]

Сообщение от Argot

А задуматься что вы тут делаете ? ))

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

а я то думал почему ShowMessage не работает...

Добавлено через 1 минуту
NLObP, освобождать надо то что больше НЕ будет использоваться...

Добавлено через 1 минуту
небольшая утечка лучше чем освобождение ещё используемой памяти...