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

[reggga]

Здравствуйте! Помогите мне, пожалуйста, разобраться в моей проблеме. Я создаю клиент-серверное приложение на основе COM объектов. Оба приложения запускаются, но когда я нажимаю кнопку соединения на клиенте, выскакивает ошибка "Интерфейс не поддерживается". До этого выскакивало что-то вроде "Ошибка реестра OLE". Я отключила контроль учетных записей, она пропала. Не знаю, может не надо было отключать. Подскажите, пожалуйста, если кто-то в этом разбирается. Скорее всего, проблема не в коде, но на всякий случай.

Код для клиента:

#include <vcl.h>
#pragma hdrstop

#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];     //возвращает NetBios имя компьютера
 DWORD size;
 size=sizeof(buffer);
 GetComputerName(buffer,&size);
 com_obj1 = CreateOleObject("Project2.com_obj1");
 com_obj1.OleProcedure("Login",buffer);
 res = new double;
}

Код для сервера:

// COM_OBJ1IMPL : Implementation of Tcom_obj1Impl (CoClass: com_obj1, Interface: Icom_obj1)

#include <vcl.h>
#pragma hdrstop

#include "COM_OBJ1IMPL.H"
#include "Unit1.h"
TDateTime ttime;
/////////////////////////////////////////////////////////////////////////////
// Tcom_obj1Impl

STDMETHODIMP Tcom_obj1Impl::Login(BSTR name)
{ 
 ttime= ttime.CurrentDateTime();
  Form1->Memo1->Lines->Add(TimeToStr(ttime)+": Клиент "+name+" подключен");
  return S_OK;
}