procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  {$IFDEF UseCodeSite}
  CodeSite.TraceMethod('FormClose');
  {$ENDIF}
  try
    try
      if qImageList.State in [dsEdit, dsInsert] then qImageList.Post;
      if qCategories.state in [dsEdit, dsInsert] then qCategories.Post;
      if qAccountLookup.state in [dsEdit, dsInsert] then qAccountLookup.Post;
      if qLinkedPolicyNums.state in [dsEdit, dsInsert] then qLinkedPolicyNums.Post;
      if qTemp.state in [dsEdit, dsInsert] then qTemp.Post;

      if qImageList.active then qImageList.Close;
      if qCategories.active  then qCategories.Close;
      if qAccountLookup.active  then qAccountLookup.Close;
      if qLinkedPolicyNums.active then qLinkedPolicyNums.Close;
      if qTemp.active  then qTemp.Close;

      Application.ProcessMessages;
      { Record final size and position in Registry }
      if WindowState = wsMaximized then
        SetRegistryData(rrUser,'Options','Maximized',rdString,'1')
      else
      begin
        SetRegistryData(rrUser,'Options','Maximized',rdString,'0');
        SetRegistryData(rrUser,'Options','Top',rdInteger,top);
        SetRegistryData(rrUser,'Options','Left',rdInteger,Left);
        SetRegistryData(rrUser,'Options','Width',rdInteger,Width);
        SetRegistryData(rrUser,'Options','Height',rdInteger,Height);
      end;
      Application.ProcessMessages;
    finally
      FreeAndNil(slCaption);
      ImageEnView1.Free;
      ImageEnMView1.Free;
      iemvPageThumbs.Free;
      OleContainer1.Free;
      AcroPDF1.Free;

    end;
  except
    // silent
  end;

program ABSIMG;
uses
  ContextMenuBugFix in 'ContextMenuBugFix.pas',
  sysutils,
  Windows,
  Forms,
  main in 'main.pas' {frmMain},
  Rotate in 'Rotate.pas' {fRotate},
  dlgXref in 'dlgXref.pas' {XrefDlg},
  Filter in 'Filter.pas',
  frmABSInterfaceU in 'frmABSInterfaceU.pas' {frmABSinterface},
  dlgCombineU in 'dlgCombineU.pas' {dlgCombineImages},
  LoadingFrm in 'LoadingFrm.pas' {frmLoading},
  dlgResizeImageUnit in 'dlgResizeImageUnit.pas' {dlgResizeImage},
  DBConnectUtils in 'DBConnectUtils.pas',
  dlgListEditorU in 'dlgListEditorU.pas' {dlgListEditor},
  dlgListLookupU in 'dlgListLookupU.pas' {dlgListLookup},
  OKCANCL1 in 'c:\program files (x86)\codegear\rad studio\5.0\ObjRepos\DelphiWin32\OKCANCL1.PAS' {OKBottomDlg},
  U_ExtdFileProperties in 'U_ExtdFileProperties.pas',
  MyDebugInfo in 'MyDebugInfo.pas';

begin
{$R *.res}
  try
    ReportMemoryLeaksOnShutdown := DebugHook <> 0;
    Application.Initialize;
    Application.Title := 'ABS Document Manager';
    Application.CreateForm(TfrmMain, frmMain);
    Application.Run;
  except
    on E : Exception do
    begin
      if (pos('class not',lowercase(E.Message)) <> 0) then
        MessageBox(Application.Handle,
          pChar('Adobe Acrobat Reader DC is required. Your version is out-of-date, '+
            'damaged or missing. YOU must install the latest version of Adobe Acrobat '+
            'Reader DC. Older versions are not compatible with ABS Document Manager.'),
          pChar('CLASS NOT REGISTERED'), MB_OK + MB_ICONERROR);
//      else
//        MessageBox(Application.Handle,
//          pChar(E.Message), pChar('Fatal Error'), MB_OK + MB_ICONERROR);
    end;
  end;

end.

// Free all components
Add2Log( 'Free RichEdit1' );
FreeAndNil( RichEdit1 );

Add2Log( 'Free ImageEnView1' );
FreeAndNil( ImageEnView1 );

Add2Log( 'Free ImageEnMView1' );
FreeAndNil( ImageEnMView1 );

etc.