Alle Hints ein-/ausschalten

[taaktaak]

Moin, Moin,
kurze Frage: Muss alle Hints in allen Controls aller Formulare ein- bzw. ausschalten. Dazu nutze ich folgenden Code ...

Delphi-Quellcode:

procedure Tfo~~.SetAllHints(Switch:Boolean);
var i,j : Integer;
begin
  with Screen do
    for i:=0 to FormCount-1 do
      for j:=0 to Forms[i].ComponentCount-1 do
        with Forms[i] do begin
          if Components[j] is TButton     then TButton    (Components[j]).ShowHint:=Switch;
          if Components[j] is TToolButton then TToolbutton(Components[j]).ShowHint:=Switch;
          //..
          //..
          end
end;

Da insgesamt über ein Dutzend verschiedene Komponententypen zu berücksichtigen sind, ist das vorstehende Verfahren ziemlich blöd - geht es auch einfacher und universeller?