function WideFindFirst(const Path: WideString; Attr: Integer; var F: TSearchRecW): Integer;

TntSysUtils

This is function TntSysUtils.WideFindFirst.