[arantzal]

Buenas,
tengo un problema a la hora de acceder por segunda vez a un procedimiento de una 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.


Al procedimiento accedo así:

THilo.execute;
var 
begin 
 
	 HandlePacksGes := LoadLibrary('Gestion.dll');
	 if HandlePacksGes <> 0 then
	 begin
			CanAnimate:= GetProcAddress(HandlePacksGes, 'Gestionar')<> nil;
			if CanAnimate then
			begin
			 try
			 Gestionar(IdUsuario, Con1); -- aquí el error al acceder por 2ª vez
			 except
			 on e: exception do
			 begin
			 messagedlg( e.message , mtwarning, [mbok],0);
			 end;
			 end;
			end;

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

procedure Gestionar(IdUsuario: integer;Conn: variant); export;
begin 
frm := TfrmGest.Create(nil); 
frm.IdUsuario := IdUsuario; 
frm.Visible := true; f
rm.Handle; 
 
while (frm.HandleAllocated) do 
Application.ProcessMessages; 
end;
 

Si alguien tiene alguna idea?
Saludos y gracias.