Mine

repeat
						worldNo:=worldNo+1;
						writeln('checking world number',worldNo);
						assign(checkFile,'Worlds/World '+chr(worldNo+48)+' Map 30.dat');
						{$I-}
							reset(checkFile);
						{$I-}
						IOR := IOResult;
						close(checkFile);
						writeln('Closed file');
					until(IOR<>0);