title: Getting error as "Class not Registered"
body: <p>I am trying to create an <code>Active X</code> DLL in delphi.
  I have added a TLB file have an Interface with a <code>CoClass</code> declaration and I have implemented the interface in some another unit.</p>
  
  <p>The <code>DLL</code> was successfully built and registered too.</p>
  
  <p>But, when I am trying to use the <code>DLL</code> for creating and calling methods from the another project it is showing error as <strong>Class Not Registered</strong>.</p>
  
  <p>I am trying to get some information about the same but not able to get answer.</p>
  
  <p>Here is a interface implementation code for the DLL:</p>
  
  <pre><code>unit uinfComTestProject;
  
  interface
  uses
    ComTestProject_TLB;
  
  Type
    TComTestProject = class(TInterfacedObject,ITestComCall)
    public
        procedure CreateAndShowMyData();safecall;
    end;
  implementation
  
  { TComTestProject }
  uses
      ufTestProjectForm;
  procedure TComTestProject.CreateAndShowMyData;
  var
   frm: TForm1;
  begin
    frm  := TForm1.Create(nil);
    try
      frm.ShowModal();
    finally
      frm.Free;
    end;  
  //
  end;
  
  end.
  </code></pre>
  
  <p>Snapshot for the TLB file definition:
  <a href="https://i.stack.imgur.com/3DgLI.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/3DgLI.png" alt="TLB Definition having interface declartion "></a> </p>
  
  <p>Method to create an instance of the interface.</p>
  
  <pre><code>procedure TForm1.Button1Click(Sender: TObject);
  var
    LCOm: ITestComCall;
  begin
    LCOm := CoTComTestProject.Create();// getting error at this point
    try
      LCOm.CreateAndShowMyData;
    finally
       LCOm := nil;
    end;    
  end;
  </code></pre>
  
  <p>Can anyone please help me on same?
  Please let me know if had made any mistake in the same. </p>
  
  <p>Thanks in advance.</p>