var
    lnqw,lnqu,lnwei:integer;
begin
    lnqw:=$b5e7;
    lnwei:=lnqw and $ff;
    lnqu:=lnqw shr 8;
    label1.Caption:=char( lnqu )+ char( lnwei );
end;