SoundexCompare

function SoundexCompare(

  const AText: string;

  const AOther: string;

  ALength: TSoundexLength

):Integer;

function SoundexCompare(

  const AText: string;

  const AOther: string

):Integer;