Canvas does not allow drawing

[kettanaito]

Доброго времени суток.
Пишу компонент-наследник класса TComboBox и сталкиваюсь с ошибкой 'Canvas does not allow drawing' при выполнении процедуры Paint:

procedure TCustomStormbox.Paint;
var R,TextRect:TRect;
begin
inherited;
FCanvas.Lock;
  // Creating a checkbox rectangle
  R.Left:=0;
  R.Top:=0;
  R.Right:=20;
  R.Bottom:=20;
  // Create a text rectangle
  TextRect.Left:=R.Left+5;
  TextRect.Top:=R.Top+1;
  TextRect.Right:=TextRect.Left+FWidth;
  TextRect.Bottom:=TextRect.Top+FHeight;
  // Settings parametrs for checkbox filling and framing
  FCanvas.Brush.Style:=bsSolid;
  FCanvas.Brush.Color:=FColors.Background;
  FCanvas.Pen.Color:=FColors.Border;
  // Начало ошибки:
  FCanvas.FrameRect(R);
  FCanvas.FillRect(R);
  case Fstate of
    ssChecked: FCanvas.Draw(R.Left,R.Top,FGlyphs.Checked);
    ssGrayed: FCanvas.Draw(R.Left,R.Top,FGlyphs.Grayed);
  end;
  // Drawing a text
  FCanvas.Brush.Style:=bsClear;
  FCanvas.Font.Name:=FFont.Name;
  FCanvas.Font.Size:=FFont.Size;
  FCanvas.Font.Color:=FFont.Color;
  FCanvas.TextRect(TextRect,0,0,FCaption);
FCanvas.Unlock;
end;

С чем это может быть связано? Везде где ни читаю, там канвас элементарно все рисует. Вот, если нужно, создание самого компонента:

constructor TCustomStormbox.Create(AOwner:TComponent);
begin
FParent:=AOwner;
FCanvas:=TCanvas.Create;
FState:=ssNormal;
Paint;

Подскажите в чем же ошибка. Спасибо.

[kettanaito]

Сколько не мучил - все одного и то же... Ребята, в чем же тут проблема? Может что-то где-то не объявлено...

[ReportCube]

Владелец компонента на момент его создания не имеет Handle, не визуализирован и куча других причин. Убирайте в конструкторе Paint. И не надо в конструкторе присваивать Parent - Owner может и не быть TWinControl

[kettanaito]

ReportCube, так а когда мне описывать Paint? Если я хочу по сути аналогичный компонент, но перерисовать его по-своему? Не могу же я вызывать процедуру отрисовки вне модуля компонента.

[Пепел Феникса]

так вам надо убрать в конструкторе вызов Paint, а не его вообще.

[kettanaito]

Пепел Феникса, погодите, я в чем-то теряюсь:

type TCustomStormBox = class(TCheckbox);
procedure Paint; - перерисовываем басовый TCheckBox;
...
type TStormBox = class(TCustomStormBox);

И как правильно перерисовать элемент?