로컬 폰트 정보 가져오기

var
  DC: HDC;
begin
  DC := GetDC(0);
  EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items));
  ReleaseDC(0, DC);
  FontName.Sorted := True;

  FontName.ItemIndex:=FontName.Items.IndexOf('Arial');
  FontSize.ItemIndex:=1;