Forms: FreeAndNil ó Release y la validación Assigned?

[jbautista]

rgstuamigo y look :

Pues algo sigue estando raro con mi codigo, voy a checarlo bien.

Mientras probé de esta manera a ver que opinan:

Código Delphi [-]
procedure TForm_principal.btnAbrirClick(Sender: TObject);
var
    i:integer;
    existe:Boolean;
begin

    existe:=False;
    {Recorremos los todos Forms Creados}
    for i := 0 to (Screen.FormCount - 1) do
        {Buscamos si ya existe el Form_Ventana}
        if  Screen.Forms[i].Name = 'Form_Prueba' then begin
            existe:=True;
            break;
        end;
    {Si el Form no existe hay que crear el Form_Ventana}
    if not existe then begin
        Application.CreateForm(TForm_Prueba, Form_Prueba);
        Form_Prueba.Show;
    end else begin
        if Form_Prueba.WindowState <> wsNormal  then
            Form_Prueba.WindowState :=  wsNormal;
        Form_prueba.SetFocus ;
    end;
end;

Y desde el Form_Prueba puedo cerrar de las siguientes maneras sin ningun error hasta el momento:

Código Delphi [-]

procedure TForm_Prueba.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TForm_Prueba.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  release;
end;

De esta forma le ven algún detalle que se me escape???

Con la forma que me recomendaron aun sigo checando si el problema es con la validación:

if not Assigned()

o con la llamada Close desde el evento OnClick del Boton.

Muchas gracias de verdad por su tiempo y comentarios.