Мерцание при перерисовки компонента

[Altera]

Доброго времени суток!
Господа, у меня проблема...
Вот фрагмент кода компонента...

procedure tAtom_test.mouseMove(Shift: TShiftState; X,
Y: Integer);
   begin
   inherited onMouseMove;
   x_pos := x; y_pos := y;
   invalidate;
end;

procedure tAtom_test.paint;
var
b: tBitmap;
begin
  inherited paint;
  b := tBitmap.Create;
  b.Width := width;
  b.Height := height;
  b.Canvas.pen.Color := clWhite;
  b.Canvas.brush.color := clBtnFace;
  b.Canvas.Rectangle(0, 0, width, height);
  b.Canvas.Pen.Color := clGray;
  b.Canvas.MoveTo(width-1, 0);
  b.Canvas.LineTo(width-1, height-1);
  b.Canvas.LineTo(0, height-1);

  b.Canvas.Pen.Color := clBlack;

  b.Canvas.MoveTo(x_pos, 1);
  b.Canvas.LineTo(x_pos, 6);

  b.Canvas.MoveTo(1, y_pos);
  b.Canvas.LineTo(6, y_pos);

  canvas.Draw(0, 0, b);
  b.Free;
end;

Думаю не надо объясьнять, что это... Короче, при вождении мышкой компонент слегка как-бы мирцает, как это исправить?

[alexBlack]

Скорее всего рисуется фон. Обработай это событие

procedure WMEraseBkGnd(var M: TWMEraseBkGnd); message WM_ERASEBKGND;

procedure  tAtom_test.WMEraseBkGnd(var M: TWMEraseBkGnd);
begin
   M.Result := -1;
end;

А inherited Paint точно нужен ?

[Rik]

В конструкторе компонента пропиши
DoubleBuffered := True;
Памяти будет жрать больше, но мерцания не будет.

А inherited Paint скорее всего не нужен.