Error THilo QueryInterface

[arantzal]

Buenas,

ya he conseguido solucionar el problema. He tenido que añadir la siguiente linea:

 
{%DelphiDotNetAssemblyCompiler 'c:\archivos de programa\archivos comunes\borland shared\bds\shared assemblies\3.0\Borland.VclAdoDb.dll'}

.

Saludos y gracias.

[arantzal]

Buenas,
ahora tengo un problema a la hora de acceder por segunda vez al procedimiento Gestión de la dll. La primera vez me deja sin problemas pero las siguientes me da el siguiente error:

System error. Code 1400.
El identificador de la ventana no es válido.



El código del procedimiento de la dll es el siguiente:

procedure GestionarVentaPacks(IdUsuario: integer;Conn: variant);  
export;
begin

 frm := TfrmGestVentPacks.Create(nil);
 frm.ADOConnRecData_Bilbao.ConnectionString := Conn;  
 frm.IdUsuario := IdUsuario;
 frm.Visible := true;
 frm.Handle;
 
 while (frm.HandleAllocated) do
 Application.ProcessMessages;
 end;

Alguna idea?
Saludos y gracias.