function isFileEmpty(): Boolean;
var
    SourceFile: TBinaryFile;
    IsEmpty: boolean;
    SizeOfFile: integer;
begin
    assign(SourceFile, getCurrentDir + '\' + FILE_NAME);
    Reset(SourceFile);
    SizeOfFile := FileSize(SourceFile);
    close(SourceFile);
    Result := (SizeOfFile = 0);
end;