if FileExists(FullFileName) then
      begin
         Reset(RecordFile);
         Seek(RecordFile, FileSize(RecordFile));
      end
      else
         Rewrite(RecordFile);