Hola,
Cuando comparamos cadenas con funciones que retornan cadenas... suele forzarse el "case" de estas de modo que podamos estar seguros de qué comparamos. Esto es, nos valemos de funciones como "LowerCase" o "UpperCase":
Código Delphi
[-]
if UpperCase(ExtractFileExt(FArchivo)) = '.JPG' then