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í:
No sé... si tienes alguna pista más....
Saludos.