Weird problem with real variable

[KidPaddle]

Small changes, cause you forgot function call ABS(a - b)

const
  //A treshold for float comparison
  EPSILON = 1e-5;

implementation

function Equals(const a, b: Single): Boolean;
begin
  Result := (abs(a - b) < EPSILON);
end;

Thomas