Und natürlich
ControlCount anstelle von ComponentCountverwenden ansonsten macht's Bumm.
Und ausserdem muss sich die Prozedur rekursiv aufrufen:
Delphi-Quellcode:
procedure SetzeHintAufName(c:TControl);
var
i:Integer;
begin
c.Hint := c.Name;
c.ShowHint := True;
for i := 0 to c.ControlCount - 1 do
begin
SetzeHintAufName(c.Controls[i]);
end;
end;