Линии совместно с TShape и TImage

[Dimula]

Привет всем читающим! Почему, интересно, TShape не поддерживает линию? Если на одной, например, форме рисовать "вручную" на канве линии, то если плюс к этому прилепить туда TShape и TImage, то старательно нарисованные линии исчезают. Наверное, нужно ловить OnPaint формы и опять рисовать? Как это сделать грамотно? Можно ли создать свой, например, TLine, чтобы потом не думать ни о чем, так же как при использовании TShape?
Заранее благодарю!