>>256
var
a :Real;
b :Integer;
begin
b = Integer(a);