function WideFindNext(var F: TSearchRecW): Integer;

TntSysUtils

This is function TntSysUtils.WideFindNext.