function WideFileOpen(const FileName: WideString; Mode: LongWord): Integer;

TntSysUtils

TNT-WARN FileOpen