将Delphi（Unicode）字符串作为类型为 WideString 的参数传递给过程是否安全？
procedure Test;
var
S: string;
Html: string;
begin
S := '...'; // may contain anything a Unicode string accepts
Html := WideStringToHTML(S);
end;
function WideStringToHTML(const AParam: WideString): string;
begin
...
end;