[rgstuamigo]

Exception EInvalidPointer in module rtl120.bpl at 000087c9

Pues pienso que eso ocurre por estas tratando de liberar un formulario que ya se libero anteriormente.Por eso no se debe utilizar el destructor directamente,para destruir o liberar un objeto en delphi utiliza el metodo Free. Es decir tu ultima linea seria:

Código Delphi [-]
TForm(Screen.Forms[idx]).Free;

Pero insisto de que no es nesesario hacer todo esto:

Código Delphi [-]
for idx:=Screen.FormCount-1 downto 1 do
  If Screen.Forms[idx] is TForm Then
    If TForm(Screen.Forms[idx]).Name<>Name Then
       If TForm(Screen.Forms[idx]).Owner=Self Then
          TForm(Screen.Forms[idx]).Destroy;

por lo anterirmente que comente en el anterior Post;
Saludos...