Convert ASCII to ANSI

Author: Simon Grossenbacher

procedure TForm1.Button1.Click(Sender: TObject);

var

AsciiString: string;

AnsiString: string;

begin

AsciiString := 'äöü';

OEMtoChar(PChar(AsciiString), PChar(AnsiString));

end;