Depende de la opción que estes usando:
- Si usas la opción de
jachguate, usa el evento OnClose y añade
Solo queda el problema de que la variable Forma1 y/o Forma2 no apunta a nil, a ver si jachguate nos dice como identificarlo.
Con la solución que propuse yo:
Código Delphi
[-]
Procedure CloseWindow(const indice:integer);
begin
if Assigned(ListaVentanas) and (ListaVentanas.Count >indice) then
begin
TForm2(ListaVentanas.items[indice]).Free;
ListaVentanas.Delete(i);
ListaVentanas.Pack;
end;
end;