Я хотел бы удалить стрелку подменю TPopupMenu в Delphi

Question

Я хочу удалить стрелку, которая появляется в подменю TMenuItem в delphi.

Я пытался этот код. И тогда стрелка была удалена, но не может быть перекрашена TMenuItem после первого элемента, который «Информация робота».

procedure TForm1.DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
var
  iHeight: Integer;
  dc: HDC;
begin
  try
    ACanvas.TextOut(ARect.Left, ARect.Top, (Sender as TMenuItem).Caption);
    dc := ACanvas.Handle;
    ExcludeClipRect(dc, ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
  finally
    ReleaseDC(0, dc);
  end;
end;