beliebige komponente von tWinControl abgeleitet?

[Weazy]

Wie kann ich herausfinden, ob eine Komponente von tWinControl abgeleitet ist? ich möchte bei allen Controlls beines Programmes beim start showhint auf true setzen, wenn solch einer vorhanden ist: hier mein ansatz:

Delphi-Quellcode:

for I := 0 to mainform.ComponentCount-1 do
try
  if TWinControl(mainform.Components[i]).Hint<>'' then
    TWinControl(mainform.Components[i]).ShowHint:=true;
finally
end;