procedure WideFindClose(var F: TSearchRecW);

TntSysUtils

This is function TntSysUtils.WideFindClose.