const MaxLength = 255; // maximale Länge  der Zeichenkette

var

     ASCII, ANSI: String;

     PText, AText : PChar;

begin

  ASCII := ('„”á');

  PText:=StrAlloc(MaxLength);

  StrPCopy(PText,AText);    // von ANSI zu ASCII    CharToOEM(PText,PText); {32Bit}

  {$IFDEF WIN32}

  OEMToChar(PText,PText); {32Bit}

  {$ELSE}

  OEMToAnsi(PText,PText); {16Bit}   // von ANSI zu ASCII    AnsiToOEM(PText,PText); {16Bit}

  {$ENDIF}

  ANSI := StrPas(PText);

  StrDispose(PText);

end;