anchor.diff:        finally
           Screen.Cursor:= oldCursor;
         end;
  +
  +      if MessageDlg(SWantToOpenFileMessage, mtConfirmation, mbYesNo, 0) = mrYes then
  +        OpenDocument(FSaveDialog.FileName);
       except
         on E:Exception do
         begin
  
positive.code:   MyWorkbook: TsWorkbook;
    MyWorksheet : TsWorksheet;
    tmpFields : TFields;
    i, rn, row : integer;
  begin
    MyWorkbook := TsWorkbook.Create;
    try
  
negative.code: 
  uses
    Classes, DB, Dialogs, Forms,
    DBGrids, Controls, Menus, LCLIntf,
    {$IFDEF FPC}
    fpstypes, fpspreadsheet, fpsallformats,
    {$ENDIF}
  