• Is this dialog built into ImageEn?
• Should I be freeing something that I'm not after I create my own dialog?
• Is there a better way to show the scanner manufactures dialog?

procedure TfrmMain.mnuScannerdialogClick(Sender: TObject);
begin
  try
    Screen.Cursor := crHourglass;
    ImageEnMView1.Clear;
    ImageEnMView1.MIO.AcquireParams.VisibleDialog := True;
    Application.ProcessMessages;
    Try
      case iDefaultImageFormat of
        0:begin {JPG}
            ImageEnView1.IO.Params.JPEG_Quality := giJPEG_Better;
            if not ImageEnView1.IO.Acquire then exit;
            NewFileName := GetFileName(gsDocManPath, '.JPG');
            ImageEnView1.IO.SaveToFile(gsDocManPath + NewFileName);
          end;
        1:begin {PNG}
            NewFileName := GetFileName(gsDocManPath, '.PNG');
            ImageEnView1.IO.Params.PNG_Compression:=9;
            ImageEnView1.IO.Params.PNG_Interlaced := False;
            if not ImageEnView1.IO.Acquire then exit;
            ImageEnView1.IO.SaveToFile(gsDocManPath + NewFileName);
          end;
        2:begin {PDF}
            ImageEnMView1.Clear;
            if not ImageEnMView1.MIO.Acquire then exit;
            Application.ProcessMessages;
            NewFileName := frmMain.GetFileName(gsDocmanPath, '.PDF');
            ImageEnMView1.MIO.SaveToFilePDF(gsDocManPath + NewFileName);
          end;
      end;

     // Save Image info to database.
      Application.ProcessMessages;
      qImageList.Append ;  { Append New image info to database. }
      qImageList.FieldByName('FK_ID').AsInteger := StrToInt(gsHHkey);
      qImageList.FieldByName('ImageName').AsString := NewFileName;
      qImageList.FieldByName('Caption').AsString := 'Scanned '+ DateTimeToStr(Now);
      qImageList.FieldByName('DateStamp').AsDateTime:= Date;
      qImageList.FieldByName('HHName').AsString := AccountName;
      Application.ProcessMessages;
      qImageList.Post;
      Application.ProcessMessages;
      RzStatusPane3.Caption := 'File: ' + qImageList.FieldByName('ImageName').AsString;
    Except
      MessageBox(Application.Handle,
          PChar('Unable to save this document. Please try to save it manually.'),
          PChar('FYI'), MB_OK + MB_ICONINFORMATION);
    end;
    RzProgressBar1.Percent := 0;
    Application.ProcessMessages;
    cxgrdGrid1DBTableView1.NavigatorButtons[12].Click;
  finally
    Screen.Cursor := crDefault;
  end;

end;