Tips (1541)

Tip Rating (7):

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