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