functin AddWideChar(Char1, Char2: WideChar): WideString;
begin
SetLength(Result, 2);
Result[1] := Char1;
Result[2] := Char2;
end;