Crear una dll en Delphi que pueda ser registrada.

[Hierbitas]

Ya lo he solucionado, despues de hacer muchas pruebas.
No se muy bien porque pero ya no salen los mensajes de error. Voy a indicar los pasos que he hecho por si algun dia lo necesita saber alguien:

1) He comprobado todas las uses que he agregado si realmente son necesarias quitando las inecesarias.

2) Quitar las funciones que no se utilizan.

3) Compilar y registar y desregistrar desde la opción de delphi Run--> Register ActiveX Server / UnRegister ActiveX Server

4) He cogido la dll y la he copiado en windows/system32 y la he registrado y desregistrado y ya no salen los mensajes de error.