[lmikle]

Походу, это функция из KOL:
http://delphiworld.narod.ru/base/kol_lesson11.html

Собственно, не так и сложно написать свою такую функцию. Или посмотреть что-то подобное в Jedi (уверен, что там такое есть).