Raised Exception

[javiermorales]

Ya he solucionado el problema de la modificación de la variable, utilizando en su lugar, el nombre del formulario a liberar. Pero ahora se me produce un error, que me plantea una pregunta.

Cuando desde un formulario, en un boton por ejemplo, se ejecuta la liberación del mismo, ¿que pasa con la línea siguiente a la liberación?. Me explico.

En el procedimiento del botón (Ej: Botón Salir), en lugar de realizar form.close, se raliza lo siguiente:

procedure TSelTerComp.Button3Click(Sender: TObject);
begin
  inherited;
  LiberaPantalla('SelTerComp');
end;//(**)

El procedimiento de liberación de pantalla está en módulo a parte y lo que hace es lo siguiente:

procedure LiberaPantalla(nom:string);
var
  i: integer;
  a: boolean;
begin
  a := false;
  i := 1;
  while not (a) and (i<25) do//25 es el tope de formularios 
  begin
    if (pantalla[i]<>nil) then
    begin
      if (pantalla[i].Name = nom) then
        a := true
      else
        inc(i);
    end
    else
      inc(i);
  end;
  if (a) then//Lo ha encontrado
  begin
    if (pantalla[i]<>nil) then
      Pantalla[i].Close;
    if (pantalla[i]<>nil) then
      Pantalla[i].Free;
    if (pantalla[i]<>nil) then
      Pantalla[i] := nil;
  end;
end;

Como ves entre otras cosas llama al close de la pantalla y ahí viene mi pregunta. Si llamo al close del formulario desde LiberaPantalla, cuando termina este procedimiento, vuelve el control al formulario, justo en (**) y entonces salta el error, ¿Es normal que habiendo cerrado y liberado el formulario, Delphi no sepa que no existe?.

Gracias. Un saludo.