Tchart y cálculo de valores en coordenadas del ratón (mouse)

[rounin]

 
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var xx, yy1, yy2: Double;
    idx: TValuePos;
begin
  {Screen coord -> Plot coord}
  xx := Chart1.BottomAxis.CalcPosPoint(X);
 
  {Binary search and interpolation (units in attachment) }
  yy1 := ValueAt(ArrayAdapter(Series1, 'x'), ArrayAdapter(Series1, 'y'), xx);
  {or}
  if BinSearch(ArrayAdapter(Series2, 'x'), xx, idx)
    then yy2 := ValueAt(ArrayAdapter(Series2, 'y'), idx)
    else yy2 := NaN; // out of range
 
  Caption := Format('%.3f  %.3f  %.3f', [xx, yy1, yy2]);
end;

[fonx]

Hey Rounin esto tiene muy buena pinta, busqueda binaria, interpolación...unas units muy útiles. Pero tengo un problema, en el IntegerFn y en el DoubleFn hay una directiva include

{$INCLUDE Fn.inc}

que no se puede resolver porque no tengo el archivo Fn.inc, y no vale quitar el include. ¿Que archivo es ese? ¿Viene en algún paquete de delphi? Estuve googleando a ver si encontraba algo referente al autor de estas units pero no encontré nada. ¿Me puedes echar una mano?

Muchas gracias de antemano, si esto funciona va a quedar muy muy chulo

[fonx]

¿Será porque uso Delphi5? ¿Alguien con otra versión más actual tiene ese fichero?