GetNewSizeOfFile upraveno na Long místo Integer