procedure setpaths;
    external;

function testaccess(accessmode:integer; filepath:integer): boolean;
    external;