Ошибка при создании COM сервера

// COM1IMPL.H : Declaration of the Tcom1Impl
 
#ifndef com1ImplH
#define com1ImplH
 
#define ATL_APARTMENT_THREADED
 
#include "Project2_TLB.H"
 
 
/////////////////////////////////////////////////////////////////////////////
// Tcom1Impl     Implements Icom1, default interface of com1
//                  and Icom1Events, the default source interface
// ThreadingModel : Apartment
// Dual Interface : FALSE
// Event Support  : TRUE
// Default ProgID : Project2.com1
// Description    :
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE Tcom1Impl :                                                
  public CComObjectRootEx<CComSingleThreadModel>,
  public CComCoClass<Tcom1Impl, &CLSID_com1>,
  public IConnectionPointContainerImpl<Tcom1Impl>,
  public TEvents_com1<Tcom1Impl>, 
  public Icom1
{
public:
  Tcom1Impl()
  {
  }
 
  // Data used when registering Object
  //
  DECLARE_THREADING_MODEL(otApartment);
  DECLARE_PROGID("Project2.com1");
  DECLARE_DESCRIPTION("");
 
  // Function invoked to (un)register object
  //
  static HRESULT WINAPI UpdateRegistry(BOOL bRegister)
  {
    TTypedComServerRegistrarT<Tcom1Impl> 
    regObj(GetObjectCLSID(), GetProgID(), GetDescription());
    return regObj.UpdateRegistry(bRegister);
  }
 
 
BEGIN_COM_MAP(Tcom1Impl)
  COM_INTERFACE_ENTRY(Icom1)
  COM_INTERFACE_ENTRY_IMPL(IConnectionPointContainer)
END_COM_MAP()
 
BEGIN_CONNECTION_POINT_MAP(Tcom1Impl)
  CONNECTION_POINT_ENTRY(DIID_Icom1Events)
END_CONNECTION_POINT_MAP()
 
// Icom1
public:
 
  STDMETHOD(Div(double a, double b, double* res, BSTR name));
  STDMETHOD(Login(BSTR name));
  STDMETHOD(Minus(double a, double b, double* res, BSTR name));
  STDMETHOD(Mult(double a, double b, double* res, BSTR name));
  STDMETHOD(Sum(double a, double b, double* res, BSTR name));
};
 
#endif //com1ImplH

#include "Unit1.h"
#include <comobj.hpp>
#include <windows.h>
#define MAX_COMPUTERNAME_LENGTH 30
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double* res;
double a;
double b;
Variant com_obj1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N1Click(TObject *Sender)
{
 char buffer[MAX_COMPUTERNAME_LENGTH+1];      
 DWORD size;
 size=sizeof(buffer);
 GetComputerName(buffer,&size);
 com_obj1 = CreateOleObject("Project2.com_obj1");
 com_obj1.OleProcedure("Login",buffer);
 res = new double;
}