Fixed Point Math

Fixed

function Fixed(S: Single): TFixed; overload;

function Fixed(I: Integer): TFixed; overload;

A couple of TFixed constructors.

In case you don't want your program to loose time on extra function call, you can use another method of converting Integer to TFixed:

var

FX: TFixed;

begin

FX := IntVal shl 16;

...

end;