TTextIOFunc = function (var F: TTextRec): Integer;

(var F: TTextRec): Integer ( TTextIOFunc)();