Делаю компонент-кнопку от TCustomControl. Её канвас создаю так в Create компонента:

code:
FCanvas: TCanvas;
...
FCanvas := TControlCanvas.Create;
TControlCanvas( FCanvas ).Control := Self;

Ну и рисую на нём:

code:
FCanvas.Draw( 0, 0, _BitMap );

Всё отлично работает до тех пор, пока родитель кнопки или его родитель или ещё выше по иерархии не сделает:

code:
Parent := nil;

И если после этого что-то вызовет перерисовку кнопки, к примеру смена одного из её свойств, то ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83431