type
foNotFound = $00;
foNotReadable = $01;
foNotWritable = $02;
foReadable = $04;
foWritable = $08;


function isOpenableFile(const aFileName: string): integer;
var H:...