모든 콤포넌트의 font를 변경

Change all component's font in TForm
(Tip. After exception class check 'IF' using....)

  
uses TypInfo;

var
  i: Integer;
  Prop: PPropInfo;
begin
  for i := 0 to AForm.ComponentCount -1 do
  begin

    if AForm.Components[i] is "Exception Class" then
    begin
      {Exception Class Coding}
    end
    else begin
      Prop := nil;
      Prop := GetPropInfo(AForm.Components[i].ClassInfo, 'Font');

      if Prop <> nil then
        SetPropValue(GetObjectProp(AForm.Components[i], 'Font'), 'Name', AFontName);
    end; // End of if AForm.Components...
  end;  // End of for
end;