Widestring

var Teste1: WideString;
    Teste2: String;
begin
  Teste1 := ´String´;
  Teste2 := Teste1;
  ShowMessage(Teste2);
end;