[icWasya]

Обычно присваивание должно работать, если правильно задана локаль.

Код:

var
  S:AnsiString;
  W:WideString;

S:=W;