Cerrar un form

[lunicirus]

Bueno, es un programa cuando oprimo el boton diseñar me sale un form1.

El form1 tiene dos botones: cancelar y siguiente.
el cogido de cancelar es

procedure TForm1.BitBtnCancelarClick(Sender: TObject);
begin
Self.close
end;

el codigo de siguiente es:

procedure TForm1.BitBtnSiguienteClick(Sender: TObject);
begin
        //Cierra la ventana Form1
     // Self.Close;

      //Abre la ventana Form2
      if Form2 = nil then
                Form2:= TForm2.Create(Self);
        Form2.ShowModal;
end;

El form 2 tiene otros dos botones: finalizarDiseno y anterior:
el codigo de anterior es:

procedure TForm1.BitBtnAnteriorClick(Sender: TObject);
begin
Form2.ShowModal;
end;

Pero el form1 no se esta cerrando cuando oprimo siguiente, y cuando oprimo anterior me sale una excepcion.