AssignFile(RecordFile, FullFileName);
   Reset(RecordFile);
   Result := FileSize(RecordFile) = 0;
   Close(RecordFile);