TSearchRecW = record
  Time: Integer;
  Size: Int64;
  Attr: Integer;
  Name: WideString;
  ExcludeAttr: Integer;
  FindHandle: THandle;
  FindData: TWin32FindDataW;
  end;

TntSysUtils

TNT-WARN TSearchRec <-- FindFile - warning on TSearchRec is all that is necessary