[reina]

Hola! a ver si te sirve. En la propiedad OwnerDraw del menu la pones en true.
Luego en el evento OnDrawItem (creo que es) de cada item del menu pones esto..es decir lo haces una sola vez..y le linkeas a todos el mismo no..je

Código Delphi [-]
begin
    with ACanvas do
    begin
         Font.Name:='Arial';
         Font.Size:=8;
         Font.Pitch:=fpFixed;
         Font.Color:=clBlack;
  
        If not Selected then
             Brush.Color:=clWhite
        else
             Brush.Color:=colorForm;
         FillRect(ARect);
      DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER);
    end;
end;

Aqui se trabaja con el canvas..fijate que le podes cambiar el color la letra..que se ponga de un color si esta seleccionado..etc.
Exitossss

LA PATRIA SERA LIBRE!