1:

if ExtractFileExt(sFile) = '.rar' then NewItem.ImageIndex := 3                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

function isRarExt (sFileName:STRING):BOOLEAN;
begin
  S:=ExtractFileExt(sFileName);
  IF (UPCASE(S[1]) = 'R') AND
      (S[2] IN ['0'..'9']) AND
      (S[3] IN ['0'..'9']) THEN Result:=True
  ELSE
    Result:=False;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

function isRarExt (sFileName:STRING):BOOLEAN;
begin
  S:=uppercase(ExtractFileExt(sFileName));
  IF (S[1] = 'R') AND
      (S[2] IN ['A','0'..'9']) AND
      (S[3] IN ['R','0'..'9']) THEN Result:=True
  ELSE
    Result:=False;
end;                    

1:
2:
3:
4:
5:
6:
7:

function isRarExt(const FileName: string): Boolean; 
var S: string;
begin
  S := LowerCase(ExtractFileExt(FileName));
  Result := (Length(S) = 4) and (S[2] = 'r') and 
            ( (S = '.rar') or ( (S[3] in ['0'..'9']) and (S[4] in ['0'..'9']) ));
end;