unit LibWideString; interface uses Windows, SysUtils; function WideStrPCopy(Dest: PWideChar; const Source: WideString): PWideChar; function StringReplaceW(const S, OldPattern, NewPattern: WideString; Flags: TReplaceFlags): WideString; implementation function WideStrPCopy(Dest: PWideChar; const Source: WideString): PWideChar; begin CopyMemory(Dest, PWideChar(Source), (Length(Source) + 1) * SizeOf..