function FileExist:boolean; Begin {$I-} assign(FL,file); reset(FL); close(FL); {$I+} FileExist:=(IoResult=0); End;