Создание DLL - VB

Формулировка задачи:

Код программы (пример использования DLL):

                    Листинг программы
                
Option Explicit
Private Declare Function Symma Lib "Summ.dll" Alias "Summ" (ByVal a As Integer, ByVal b As Integer) As Integer
 
Private Sub Command1_Click()
Text3.Text = Symma(Val(Text1.Text), Val(Text2.Text))
End Sub

Код DLL (точнее ActiveX DLL):

                    Листинг программы
                
Private Function Summ(ByVal a As Integer, ByVal b As Integer) As Integer
Summ = a + b
End Function

В Project-References перечислены все ActiveX объекты на компьютере, там нужно добавить имя проекта DLL (например Project2). Вот таким образом я всё сделал по инструкции из статей по работе с DLL, но не могу скомпилировать exe: пишет, что нужно скомпилировать сначала второй проект с DLL. Его компиляция (Make Summ.dll), а также (одновременная компиляция всей группы проектов) Make Project Group не дают результата - якобы он не скомпилирован, хотя это не так. Плюс при компиляции DLL выдает сообщение, что нельзя получить доступ к системному регистру (System Registry). В чём может быть дело?

Решение задачи: «Создание DLL»

textual
                            Листинг программы 
                        
implementation
 
procedure About (); stdcall; external 'dll.dll';
function ADD (x,y : integer) : integer; stdcall; external 'dll.dll';
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   About;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   ShowMessage(IntToStr(ADD(1,2)));
end;