Fonts in einer Form resetten

[Shark99]

Ich versuche die Fonts aller Controls einer Form zu resetten.

Dieser Code lässt sich leider nicht compilieren:

Delphi-Quellcode:

var i: integer; c: TComponent;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
     c := Form1.Components[i];
     if (c is TControl) then (c as TControl).ParentFont := True;
  end;
end;

Ich bekomme die Fehlermeldung: [Error] MainUnit.pas(4884): Undeclared identifier: 'ParentFont'

Was ich leider überhaupt nicht verstehe, da ein TControl das ParentFont property hat.