[marcoszorrilla]

Hay que poner la propiedad del OwnerDraw del MainMenu a True.

Y luego pon este código en la propiedad DrawItem.

Código Delphi [-]
procedure TForm1.UNO1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  with ACanvas do
  begin
     Font.Name:='Arial';
     Font.Color:=clRed;
     DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER);
  end;
end;

Un Saludo.