Посмотри на код этой функции и тебе станет понятно как такое сделать:

procedure ToriChangeFontName(aControl: TWinControl; aFontName: String) ;
var I : Integer;
var
PropInfo : PPropInfo ;
PropValue: TObject ;
fFont : TFont ;
begin
if not Assigned(AControl) then
Exit;
with AControl do
for I := 0 to ControlCount - 1 do
begin
if (Controls is TWinControl) and
(TWinControl(Controls).ControlCount > 0) then
begin
ToriChangeFontName(TWinControl(Controls),aFontName ) ;
end;
PropInfo := nil ;
PropInfo := GetPropInfo(Controls.ClassInfo, 'Font');
if PropInfo <> nil then
begin
if PropInfo^.PropType^.Kind = TkClass then
begin
PropValue := TObject(GetOrdProp(Controls, PropInfo));
if PropValue is TFont then
begin
fFont := TFont(PropValue) ;
PropInfo := nil ;
PropInfo := GetPropInfo(fFont.ClassInfo, 'Name') ;
if PropInfo <> nil then
SetStrProp(fFont, PropInfo, aFontName) ;
end ;
end ;
end ;
end;
end;

Поясню: Это фукнции ищет компоненты (например у формы), и если и компонента есть свойство Font и если это свойство имеет тип TFont, она меняет у этого свойства Font свойство Name