Changed line 77

I forgot to change this one too:

function ClusterTPA(const TPA: TPointArray; dist: Extended): T2DPointArray;

=>

function ClusterTPA(const TPA: TPointArray; dist: Integer): T2DPointArray;