Доброго времени суток Славные Жители Королевства!

При выводе шрифтов в системе на платформе 64 бита с помощью "EnumFontFamiliesEx" выдает ошибку.
Перепробовал кучу способов но ничего не помогает.
Кто нибудь может помочь в чем дело!!!

Ошибка: "First chance exception at &0000000000713034. Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'. Process Progect1.exe"

{ На платформе 64-bit Platform "EnumFontFamiliesEx" выдает ошибку      }
{ На платформе 32-bit Platform "EnumFontFamiliesEx" работает правильно }
{ На форме TListBox "ListBox1" и TButton "Button1"                    }

Моя тестовая программа:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TFontTypeObject = class (TObject)
    FtoFontType: Integer;
    FtoFlags: Cardinal;
  end;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

  function EnumFontFamExProc(var LogFont: TEnumLogFontEx; var TextMetric: TNewTextMetric; FontType: Integer; Data: Pointer): Integer; stdcall;
  var
    Strings: TStringList;
    TempFaceName: String;
    FontTypeObject: TFontTypeObject;
  begin
    Strings:= TStringList(Data);
    TempFaceName:= LogFont.elfLogFont.lfFaceName;

    if (Strings.IndexOf(TempFaceName) = -1) then      // ERROR HERE

    // First chance exception at &0000000000713034. Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'. Process Progect1.exe

      begin
        FontTypeObject:= TFontTypeObject.Create;
        FontTypeObject.FtoFontType:= FontType;
        FontTypeObject.FtoFlags:= TextMetric.ntmFlags;
        Strings.AddObject(TempFaceName, TFontTypeObject(FontTypeObject));
      end;
    Result:= 1;
  end;

var
  DC: HDC;
  LogFont: TLogFont;
begin
  DC:= GetDC(0);
  try
    FillChar(LogFont, SizeOf(LogFont), 0);
    LogFont.lfCharSet:= DEFAULT_CHARSET;
    LogFont.lfFaceName:= '';
    LogFont.lfPitchAndFamily:= 0;
    EnumFontFamiliesEx(DC, LogFont, @EnumFontFamExProc, LPARAM(ListBox1.Items), 0);
    ListBox1.Sorted:= TRUE;
  finally
    ReleaseDC(0, DC);
  end;
end;

end.