Dll Delphi+AutoCad

Добрый день,Уважаемые.
Проблема такая:
Есть dll написанная на Delphi.
Код следующий:

library dll;
uses
   ShareMem,
   SysUtils,
   Classes,
   ActiveX;
{$R *.res}
Function Test(N : Byte) : PChar; stdcall;
begin
  CoInitialize(nil);
  Test := pchar(inttostr((n))+ 'проверка');
  CoUnInitialize;
end;
exports
 Test ;
begin
end.

Пытаюсь запустить ее в AutoCAD-ском(MDT6) VBA.
Код макроса следующий:

Private Declare Function Test Lib "E:\a\dll\dll.dll " (ByVal Ns As Byte) As String
Private Sub CommandButton1_Click()
  TextBox1.Text = Test(10)
End Sub
Private Sub CommandButton2_Click()
  End
End Sub
 

при нажатии кнопки CommandButton1 значение TextBox1.Text меняется, то есть функция выполняется, но при нажатии кнопки CommandButton2_Click, выполняющей завершение макроса выходит следующее сообщение:

и происходит аварийное завершение приложения AutoCAD.
Подскажите, с какой стороны копать и чего делать, что бы этой ошибки не возникало.