Рисование на панели управления

Как рисовать на панели управления, например на TPanel?

У всех компонентов, порожденных от TCustomControl, имеется свойство Canvas типа TCanvas.

Если свойство Canvas недоступно, то им можно воспользоваться, создав потомка и осуществив перенос этого свойства в раздел Public.

type
  TcPanel = class(TPanel)
  public
    property Canvas;
end;