STACK_TEXT:  
f22cba54 808629c9 00000050 c0b58cba 00000000 nt!KeBugCheckEx+0x1b
f22cbaa4 808264ca 00000000 c0b58cba 00000000 nt!MmAccessFault+0x7af
f22cbaa4 bf80f653 00000000 c0b58cba 00000000 nt!KiTrap0E+0xd8
f22cbb34 bf80ebf8 bc7d8880 00000000 00000000 win32k!IsAnyCharsetDbcs+0x38
f22cbba8 bf80eb0f bc7dc890 0000003c 00000000 win32k!PFEMEMOBJ::bInit+0x8a
f22cbbec bf963186 0000003c 00000000 001e3f30 win32k!PFFMEMOBJ::bAddEntry+0x6c
f22cbc4c bf9636a9 00000051 f22cbd64 f22cbcf0 win32k!PFFMEMOBJ::bLoadDeviceFontTable+0xef
f22cbc84 bf82ba6d bc003578 bc7327f8 bc003560 win32k!DEVICE_PFTOBJ::bLoadFonts+0x8f
f22cbc98 bf84faf4 00000000 00000000 be1d15ac win32k!PDEVOBJ::bGetDeviceFonts+0x30
f22cbce8 bf84fa99 bc787018 00000003 00000000 win32k!GreEnumFontOpen+0x3b
f22cbd40 8082350b 0221069a 00000003 00000000 win32k!NtGdiEnumFontOpen+0xc8
f22cbd40 7c9385ec 0221069a 00000003 00000000 nt!KiFastCallEntry+0xf8
0012fc28 77bfb75c 77bfb747 0221069a 00000003 ntdll!KiFastSystemCallRet
0012fc50 77bfb632 0221069a 00000000 00000001 GDI32!NtGdiEnumFontOpen+0xc
0012fc88 77bff48a 0221069a 00000000 00000001 GDI32!EnumFontsInternalW+0x2c
0012fcb8 77bff420 0221069a 00000000 00000001 GDI32!EnumFontsInternalA+0x68
0012fcd8 00a0cdc3 0221069a 0012fd44 00a0c940 GDI32!EnumFontFamiliesExA+0x32
WARNING: Stack unwind information not available. Following frames may be wrong.
0012fd98 00a0cb88 0012fdac 00a0cbcc 0012fdc0 buh+0x60cdc3
0012fdc0 00425c1b 000006cb 015d1c44 00e84174 buh+0x60cb88
0012fdfc 00494c1e 0012fe10 00494c84 0012ff50 buh+0x25c1b
0012ff50 015d1c6e 0012ff70 015d1ccd 0012ff68 buh+0x94c1e
0012ff68 00405db7 0012ffb4 00405dc5 0012ff8c buh+0x11d1c6e
0012ff8c 00405e1f 00408caf 7ffde000 015d45d2 buh+0x5db7
0012ffc0 7c82f23b 00000000 00000000 7ffde000 buh+0x5e1f
0012fff0 00000000 015d45b4 00000000 78746341 kernel32!BaseProcessStart+0x23

  Address             Publics by Name
 0001:00AC3E44       AAMake..TAAMakeForm
 0004:0000B498       AAMake.AAMakeForm
...

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
begin
  TStrings(Data).AddObject(LogFont.lfFaceName, Pointer(FontType and TRUETYPE_FONTTYPE <> 0));
  Result := 1;
end;

function EnumFontsProc2(AFontLoader: TcxFontLoader; const ALogFont: TLogFont;
  AFontType: DWORD): Integer;
var
  AFaceName: string;
begin
  AFaceName := ALogFont.lfFaceName;
  if (AFontLoader.FontList.IndexOf(AFaceName) = -1) and
    IsValidFontCondition(AFontLoader.FFontTypes, ALogFont, AFontType) then
  begin
    if ALogFont.lfCharSet = SYMBOL_CHARSET then
      AFontType := AFontType or SYMBOL_FONTTYPE;
    if ALogFont.lfPitchAndFamily = FIXED_PITCH then
      AFontType := AFontType or FIXEDPITCH_FONTTYPE;
    AFontLoader.FontList.AddObject(AFaceName, TObject(Integer(AFontType)));
  end;
  if AFontLoader.Terminated then
    Result := 0
  else
    Result := 1;
end;

function EnumFontsProc1(var ALogFont: TLogFont;
  var ATextMetric: TTextMetric; AFontType: DWORD;
  AData: LPARAM): Integer; stdcall;
begin
  Result := EnumFontsProc2(TcxFontLoader(AData), ALogFont, AFontType);
end;

function QRRTFEnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
var
  S: TStrings;
  Temp: string;
  Family: integer;
begin
  S := TStrings(Data);
  Temp := LogFont.lfFaceName;
  Family := LogFont.lfPitchAndFamily shr 4;
  if (S.Count = 0) or (AnsiCompareText(S[S.Count-1], Temp) <> 0) then
    S.AddObject(Temp, TObject(Family));
  Result := 1;
end;

function EnumFontCharsets(var EnumLogFont: TEnumLogFontEx;
  PTextMetric: PNewTextMetricEx; FontType: Integer; Data: LPARAM): Integer;
  export; stdcall;
var s: String;
    l,cs: Integer;
begin
  Result := 1;
  cs := EnumLogFont.elfLogFont.lfCharSet;
  if cs<>MAC_CHARSET then begin
    l := StrLen(EnumLogFont.elfScript);
    SetLength(s,l);
    Move(EnumLogFont.elfScript, PChar(s)^,  l);
    for l := 0 to TRVFontCharsetComboBox(Data).Items.Count-1 do begin
      if Integer(TRVFontCharsetComboBox(Data).Items.Objects[l])=cs then
        exit;
      if AnsiCompareText(TRVFontCharsetComboBox(Data).Items[l],s)>0 then begin
        TRVFontCharsetComboBox(Data).Items.InsertObject(l,s,TObject(cs));
        exit;
      end;
    end;
    TRVFontCharsetComboBox(Data).Items.AddObject(s, TObject(cs));
  end;
end;

function EnumFontsProc(var ALogFont: TLogFont; var ATextMetric: TTextMetric;
  AFontType: DWORD; AData: LPARAM): Integer; stdcall;
begin
  if ALogFont.lfCharSet = SYMBOL_CHARSET then
    AFontType := AFontType or SYMBOL_FONTTYPE;
  if ALogFont.lfPitchAndFamily = FIXED_PITCH then
    AFontType := AFontType or FIXEDPITCH_FONTTYPE;
  FFontList.AddObject(ALogFont.lfFaceName, TObject(Integer(AFontType)));
  Result := 0;
end;