تشخیص اندازه فونت سیستم

uses Registry;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if OpenKey('Config001DisplaySettings', False) then
    try
      if ReadString('fonts.fon')='vgasys.fon' then
        Label1.Caption:='Small font'
      else
        Label1.Caption:='Large font'
    except
      MessageDlg('Can not go to handle', mtError, [mbOk], 0);
    end
    else
      MessageDlg('Registry reading error', mtError, [mbOk], 0);
    CloseKey;
  end;
end;