function StrBufSizeW(const Str: PWideChar): Cardinal;

TntSysUtils

TNT-WARN StrBufSize