lstringicompupper

function lstringicompupper(

  const a: lstringty;

  const upper: lstringty

):Integer; overload;

function lstringicompupper(

  const a: lstringty;

  const upper: string

):Integer; overload;