TPopupMenu 에 TMenuItem를 동적으로 붙이고 있는데 혹시 왼쪽에 컬러 사각형을 그리고 싶은데 방법이 있나요?

TPopupMenu * pmStatus = new TPopupMenu(Application);

TMenuItem * miStatus = new TMenuItem(Application);

  miStatus-> Bitmap -> Canvas->Pen  ->Color = clBlack ;
  miStatus-> Bitmap -> Canvas->Pen  ->Style = psSolid ;
  miStatus-> Bitmap -> Canvas->Pen  ->Width = 1;
  miStatus-> Bitmap -> Canvas->Brush->Color = clRed ;
  miStatus-> Bitmap -> Canvas->Rectangle(0, 0, 50, 50);

pmStatus  -> Items -> Insert(0 , miStatus);

위처럼 구성해봤는데 그림이 안그려지네요....