{
Count, Items, Enabled example
The following code disables all the subitems of MenuItem1.
} 
var
  I: Integer;
begin
  for I := 0 to MenuItem1.Count-1 do
    MenuItem1.Items[I].Enabled := False;
end; 
