Foros Club Delphi - SetErrorMode

Hola, tengo una duda con este procedimiento. Según tengo entendido evita que aparezcan mensajes de error... la verdad es que la uso bastante y no se si es del todo correcto.. es decir, ¿puede provocar algún error inesperado?

Ejemplo:

Código Delphi [-]//*************************************************************
//Procedure: onFormDestroy
//*************************************************************
procedure TFMain.FormDestroy(Sender: TObject);
begin
    try
      SkinnedForm.Free;
      PHOENIX_Free;
      FFolder.Free;
      Rip.Free;
      Lame.Free;
    except on exception do begin
      SetErrorMode(SEM_FAILCRITICALERRORS);
    end;
  end;
end;

Sin el SetErrorMode me da errores al cerrar el formulario que no consigo depurar, pero de esta forma funciona bien...
Otro procedimiento:

Código Delphi [-]//*************************************************************
//Procedure: OnPauseClick
//*************************************************************
procedure TFMain.PageControlChange(Sender: TObject);
begin
    case PageControl.TabIndex of
      1: begin
          try
            AlignColummns;
            if PlayList.Items.count > 0 then begin
            PlayList.Items[TrackIndex].Selected:= true;
            CenterTrackSelection;
            end;
            PlayList.SetFocus;
          except
          end;
         end;
      3: begin
            try
              Rip.Update;
                if Rip.Tracks.Count > 0 then begin
                  PageCopy.ActivePage:= tabCopy;
                  CopyList.Items.AddStrings(Rip.Tracks);
                end else
                  PageCopy.ActivePage:= tabNoCopy;
            except on exception do begin
              SetErrorMode(SEM_FAILCRITICALERRORS);
           end;
        end;
      end;
  end;
end;

Aqui funciona perfectamente el código pero sin el SetErrorMode me da un error.
No se si es muy correcto lo que estoy haciendo en mi código...

Salu2