Estou criando meu primeiro componente COM (de teste). Esta ocorrendo um erro:

Mensagem: OLE error code 0x80040111:ClassFactory não pode fornecer a classe solicitada.

Build: Single-threaded COM Server(DLL).
Versão do Fox: 7
Linha de comando: oTeste = CreateObject("TesteCOM.Teste")
Nome do projeto: TesteCOM

Código Fonte:
Define CLASS Teste AS Session OLEPUBLIC

PROCEDURE Init

This.CriaDados


ENDPROC

PROCEDURE CriaDados

CREATE CURSOR curTeste (cNome C(20))
INSERT INTO curTeste (cNome) VALUES ("Orlando Ferreira")

ENDPROC

Procedure MostrarNome

CursorToXML("curTeste","lcStringXML",2,0,0,"1")

Return lcStringXML

EndProc
EndDefine

obs: como faço mesmo para enfatizar uma linha de código.