Delphi. Canvas. Суперкласс. Рисование фигур.

Суть такова, мне надо сделать суперкласс, который бы рисовал фигуру, ну и его потомки - разного типа фигуры.
Рисовать как-то через Canvas, а я толком и не знаю как этот Canvas юзают.
Вот накидал два класса
http://codepaste.ru/11826/
http://codepaste.ru/11827/
Суть в том, что хотел рисовать через объявленную переменную типа Tcanvas, а он ругается на что-то.
Или я как-то не так понимаю, как он должен отрисовывать объект?