Отрисовка наследника TWinControl

procedure TMyControl.WMPaint;
begin
  DoPaint;
  inherited;
end;

procedure TMyControl.DoPaint;
Var hDC: THandle;
    Rect: TRect;
    Canvas: TCanvas;
    i: Integer;
begin
  if Assigned(Parent) then
  begin
    // Прямоугольник размеров контрола
    Rect.Top := 0;
    Rect.Bottom := Height-1;
    Rect.Left := 0;
    Rect.Right := Width-1;

    // Создаем контекст
    hDC := GetDC(Handle);
    Canvas := TCanvas.Create;
    Canvas.Handle := hDC;

    // Рисуем контрол
    Paint(Canvas,Rect);

    // Освобождаем контекст
    ReleaseDC(Handle,hDC);
    Canvas.Free;
  end;
end;