проблемы с COM-object

[Дmmm]

При попытке зарегистрировать СОМ-сервер средствами Дельфи выдаёт сначала "Succesfully registered ActiveX Server", а потом сразу же ошибку EOleSysError "ошибка при обращении к серверу OLE".
В реестре ID не появляется. Что не так?

[northener]

Сообщение от Дmmm

При попытке зарегистрировать СОМ-сервер средствами Дельфи выдаёт сначала "Succesfully registered ActiveX Server", а потом сразу же ошибку EOleSysError "ошибка при обращении к серверу OLE".
В реестре ID не появляется. Что не так?

Код покажи. И желательно проект целиком. Ибо "потом сразу же" - очень неопределенное понятие.

[Дmmm]

проблема решилась запуском Дельфи от имени администратора.
дошел до следующей:
код интерфейса:
Igt3 = interface(IUnknown)
['{47A59DD5-F1FC-428B-BA44-1021AF88034C}']
function Set_L(P0: Double): HResult; stdcall;
function Get_R: Double; stdcall;
end;

код реализации:
type
Tgt3 = class(TTypedComObject, Igt3)
P_L: double;
protected
function Set_L(P0: Double): HResult; stdcall;
function Get_R: double; stdcall;
end;

implementation

uses ComServ, System.SysUtils, unit1;

function Tgt3.Set_L(P0: Double): HResult;
stdcall;
begin
P_L:=P0;
Result:=S_Ok;
end;
function Tgt3.Get_R: double;
begin
Result:=P_L+StrToFloat(form1.Edit1. Text);
end;

код клиента:
type
TForm3 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
iigt: Igt3;
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var d: double;
begin
d:=StrToFloat(edit1.Text);
iigt.Set_l(d);
d:=iigt.Get_R;
label1.Caption:=FloatToStr(d);
end;

procedure TForm3.FormShow(Sender: TObject);
begin
iigt:=Cogt3.Create;
end;

и вот на вызове в клиенте метода интерфейса из сервера возникает ошибка