Народ, подскажите пожалуйста. А то я себе всю голову сломал уже.
Написал простой объект автоматизации, наследник от TAutoObject

unit Unit1;
interface
uses ComObj,Project1_TLB, StdVcl;
 type
TFileZapper = class(TAutoObject, IFileZapper)
  public
    function Method1(const Param1: WideString): WideString; safecall;
end;
implementation
uses ComServ, Registry, SysUtils,Dialogs;
 function TFileZapper.Method1(const Param1: WideString): WideString;
begin
  ShowMessage('1');
Result:=   Param1+'asdasdasd';
  ShowMessage('2');
end;
initialization
TAutoObjectFactory.Create(ComServer, TFileZapper, CLASS_FileZapper, ciMultiInstance, tmApartment);
end.

Всё просто и без фанатизма.
Проблема в том, что на Windows7 при выполнении простого скрипта

set MyManager = CreateObject("Project1.FileZapper")
 MsgBox(MyManager.Method1("test-"))

после отображения ShowMessage('2') CScript валится с Exception Code: c0000374

Хотя делаю всё то же самое но на C# (или под XP) и всё работает.
Что может быть такое или хоть в каком направлении рыть?