añades tu archivo pas tanto al programa como a la dll
en tu dll creas la siguiente funcion
function devolverMiClase : longint
begin
result longint(TMiClases.create);
end;
en tu programa vuelves a hacer el casting
function obtenerClase: TMiClase;
begin
result := TMiClase(devolverMiClase);
end;
__________________
self.free;
|