Cerrar un Form MDI al abrir otro MDI

[[David]]

Cuando hago esto , el caso es que si tengo abierto un formulario , por ejemplo TFrmVentas , y le doy otra vez al botón de abrir Ventas , este formulario que ya esta se cierra y se vuelve a cargar , cuando si el formulario que esta activo , el MDIActiveChild , se le da al botón otra vez , quiero que lo único que haga es mirar sino esta maximizado y si esta que no haga nada y sino esta , pues que lo maximize , pero que no lo cierre y vuelva a crear .

He creado el siguiente procedure :

Código Delphi [-]
procedure TFomPrincipal.CerrarMDI;
 var
  i : integer;
  F : TForm;
 begin
 For i := Screen.FormCount -1 downto 0 do
    begin
        F := Screen.Forms[i];
        if F.FormStyle = fsMDIChild then
         ActiveMDIChild.Close;
    end;
 end;

Abrí que poner algo para evitar que se cierre el formulario que esta activo , al darle otra vez al bóton , para ello no sé que código poner , eso si , habría que pasarle un parametro al procedure , algo asi como procedure (F:TForm);

A ver si alguien puede ayudarme .