System Delphi

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