[code=pascal]
function f2vt(value: single): integer;
var
temp: integer;
begin
temp := integer(trunc(single(value) * single(65535)));
writeln(integer(temp));
result := integer(temp);
end;
[/code]

works here, though I don't know if it is a suitable solution for you