TFileIOFunc = function (var F: TFileRec): Integer;

(var F: TFileRec): Integer ( TFileIOFunc)();