Wie funktioniert Ansi2OEM mit Unicode

[heri]

Wie funktioniert denn Ansi2OEM mit Unicode?

Delphi-Quellcode:

function Ansi2OEM(Const AString: String): String; 
var 
  lResult: String; 
begin 
  SetLength(lResult, Length(AString)); 
  {$IFDEF WIN32} 
  CharToOEM(PChar(AString), PChar(lResult)); {32Bit} 
  {$ELSE} 
  AnsiToOEM(PChar(@AString[1]), PChar(@lResult[1])); {16Bit} 
  {$ENDIF} 
  Result := lResult; 
end;

ich kriegs nicht hin?