Algorithm Math Delphi


            Title: How to convert ASCII to ANSI
procedure TForm1.Button1.Click(Sender: TObject);
var
 AsciiString: string;
 AnsiString: string;
begin
 AsciiString := '??¨¹';
 OEMtoChar(PChar(AsciiString), PChar(AnsiString));
end;