Pascal/Turbo Pascal - como hacer minusculas igual a mayusculas

{Si las cadenas son iguales, devuelve TRUE; de lo contario, devuelve FALSE}

{No importa si están en mayúscula o minúscula}

Function CompStr(St1, St2 :String) :Boolean;

    Begin

        Result := 0;

        CompStr := (LowCase(St1)=LowCase(St2));

    End; {CompStr}

{Localiza una cadena dentro de otra, sin importar mayúsculas}

{Ni minúsculas}

Function iPos(SubSt, St :String; FromPos :Integer) :Byte;

    Begin

        iPos := Pos(LowCase(SubSt), LowCase(St), FromPos);

    End; {iPos}