1、先将form的font改好。

2、保证组件的parentfont为true即可。比如edit1.parentfont：=true

procedure TForm1.Button1Click(Sender: TObject);
begin
     if self.FontDialog1.Execute() then
     begin
      form1.Font:=self.FontDialog1.Font;
      self.Edit1.ParentFont:=true;
     end;
end;

3、效果。

二、IDE字体大小

1）regedit

2）修改：

计算机\HKEY_CURRENT_USER\Software\Embarcadero\BDS\22.0\Theme 中fontsize=c