[Viajero]

Cвой класс желательно в отдельном unit делать и по моему в дельфи, если не ошибаюсь, class(TObject) должен быть.
А что, в данном случае пишет ошибку? желательно текст ошибки.