NaturalCompareText

function NaturalCompareText(

  const S1: string;

  const S2: string

):Integer;

function NaturalCompareText(

  const Str1: string;

  const Str2: string;

  const ADecSeparator: AnsiChar;

  const AThousandSeparator: AnsiChar

):Integer;