Проблема с получением интерфейса из dll

1. Создаем новый проект- VCL Forms приложение testProject.exe.
2. Добавляем в группу проектов новую DLL библиотеку – testLib.dll.
3. В проект библиотеки добавляем новый модуль – testIntf.pas, в интерфейсной части которого описываем требуемый пустой интерфейс ITestInterface.

   type
       ITestInterface = interface
       end;

4. В главный файл библиотеки добавляем описание класса TTestObject, предка TInterfacedObject, поддерживающего интерфейс ITestInterface

   library testLib;
   uses
     testIntf in 'testIntf.pas';
   {$R *.res}
   
   type
       TTestObject = class(TInterfacedObject, ITestInterface)
       end;

5. Здесь же добавляем функцию для создания объекта, с возвратом указателя на интерфейс. Модель вызова safecall.

       function ExportObject():ITestInterface; safecall;
       begin
           result := TTestObject.Create();
       end;

6. Добавляем имя функции в список экспортируемых.

   exports
       ExportObject;

7. Сохраняем всю группу проектов.
8. К проекту testProject подключаем файл описания интерфейса testIntd.pas
9. Определяем сигнатуру экспортируемой функции

   var getObject : function(): ITestInterface; safecall;

10. описываем необходимые переменные

        x : ITestInterface;
        hLib : THandle;

11. Загружаем библиотеку.

        hLib := LoadLibrary('testLib.dll');

12. Получаем точку входа в функцию экспорта объекта.

        @getObject := GetProcAddress(hLib,'ExportObject');

13. Вызываем функцию, получаем ссылку на интерфейс

        x := getObject();

14. тут инициализируется объект Application, работает приложение, и закрывается.

        Application.Initialize;
        Application.MainFormOnTaskbar := True;
        Application.CreateForm(TForm1, Form1);
        Application.Run;

15. Обнуляем ссылку на интерфейс

        x := nil;

16. Выгружаем библиотеку.

        FreeLibrary(hLib);

var getObject : function(var x : ITestInterface):HResult; stdcall;
...
    getObject(x);