Тема интересная. Может есть какое-то описание по данному коду в Delphi?