[yapt]

Seguro que ya has probado esto, pero en Delphi 2010, a mí me funciona bien.

Código Delphi [-]
var
  a : AnsiString;
  s : WideString;
begin
 s := 'Avión';
 a := AnsiString(s); 
end;

De hecho también funcionaría así:

Código Delphi [-]
  s := 'Avión';
  a := s;

No sé... si tienes alguna pista más....

Saludos.