Adds Unicode string to the pick list of the TCustomPropertyEdit

procedure GetWStr(const S: WideString);