>>511
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
code:DWORD;
begin
code := $82A9;
s := Chr(code shr 8) + Chr(code and $FF);
Label1.Caption := s;
end;