function ExtractStringFromStringArray(var P: PWideChar; Separator: WideChar = #0): WideString;

TntSysUtils

This is function TntSysUtils.ExtractStringFromStringArray.