          sSQL := 'CREATE STORE "%s" AS LOCAL PATH %s';
          sSQL := Format(sSQL,[ExportedItems,Quotedstr(sDirectory)]);
          RunSQL(sSQL);
          {********************************************************************}
          sSQL := 'CREATE TEMPORARY TABLE "ExportedItems" AS';
          sSQL := sSQL + ' SELECT * FROM %s.Items   WITH DATA';
          RunDDL(sSQL);
          {********************************************************************}
          sFileName := 'TB_Items' + sFileStamp;
           sSQL := 'EXPORT TABLE RAM.ExportedItems TO "%s.saw6" IN STORE "ExportedData"';
           sSQL := Format(sSQL,[sFileName]);
           RunSQL(sSQL);
          {********************************************************************}   