ASCII -> Ansi

Hur omvandlar jag bäst ASCII till ANSI? Jag hade tänkt mig att använda OEMtoChar eller OEMtoCharBuff men får då ett access violation i user32.dll.

var
OemStr, AnsiStr: String;
begin
OemStr := 'aaaaaa';
Setlength(AnsiStr, Length(OemStr));
OemToChar(PChar(OemStr), PChar(AnsiStr));
end;