如:
try assignFile(F,FileName);
       try
            if NOT FileExists(FileName) then
              ReWrite(F)
            else
              begin
                Append(F);
                WriteLn(F,zzz);
                Flush(F);  //////////???????????????
              end;
          finally
            closeFile(F);
          end;
        except
         ;
        end
         next;