Как создать такой объект, в котором есть поддержка канвы?

На первый взгляд всё просто. Создал процедуру, которая принимает координаты середины паровоза, и рисует по ним его. сделал цикл. нарисовал, всё едет. Сдаю - не то. Оказалось не всё так просто. Нужно было создать объект, в котором при конструировании автоматом рисуется паровоз, а дальше двигать уже сам объект.
Как создать такой объект, в котором есть поддержка канвы?

Delphi7