unit _EmptyFile; interface uses _FileTypes; type TFile_Empty = class(TFile) end; implementation end.