procedure TForm1.Button1.Click(Sender: TObject);var AsciiString: string; AnsiString: string;begin AsciiString := 'äöü'; OEMtoChar(PChar(AsciiString), PChar(AnsiString));end;