function StrLComp(const Str1, Str2: PAnsiChar; MaxLen: Cardinal): Integer;
var
  S1, S2: PAnsiChar;
begin
  S1 := Str1;
  S2 := Str2;
  while (S1^ <> #0) and (S2^ <> #0) and (MaxLen > 0) do
  begin
    Result := Ord(S1^) - Ord(S2^);
    if Result <> 0 then Exit;
    Inc(S1);
    Inc(S2);
    Dec(MaxLen);
  end;
  Result := Ord(S1^) - Ord(S2^);
end;

function StrLComp(const Str1, Str2: PWideChar; MaxLen: Cardinal): Integer;
var
  S1, S2: PWideChar;
begin
  S1 := Str1;
  S2 := Str2;
  while (S1^ <> #0) and (S2^ <> #0) and (MaxLen > 0) do
  begin
    Result := Ord(S1^) - Ord(S2^);
    if Result <> 0 then Exit;
    Inc(S1);
    Inc(S2);
    Dec(MaxLen);
  end;
  Result := Ord(S1^) - Ord(S2^);
end;