кстати это полный код модуля, он скомпилится и будет работать, в этих двух классах ничего лишнего, разве что на делфи придется перевести ))