procedure AbrirForm (Form: TForm; FormClass: TFormClass; bShowModal: Boolean);
begin
  if not Assigned (Form) then
    Application.CreateForm (FormClass, Form);
  if bShowModal then
    Form.Show
  else
    Form.ShowModal;
end;