Вот исходники.
http://www.ex.ua/view_storage/382677277598
Прошу делится изменениями.
Собирался в Lazarus 0.9.30