Problema con condiciones

[Anel Hernandez]

Hola,

estoy haciendo una busqueda de ficheros y luego de encontrado un fichero especifico realizar diversas operaciones con el.

cuando hago

Código Delphi [-]
if  RightStr(SR.Name,4)='.inp' then calcular;

funciona perfectamente.

cuando hago

Código Delphi [-]
if  LeftStr(SR.Name,6)='CALMET' then calcular;

funciona perfectamente.

pero cuando las combino:

Código Delphi [-]
if  (RightStr(SR.Name,4)='.inp') and (LeftStr(SR.Name,6)='CALMET') then calcular;

la primera condicion me da falso en ficheros de extension '.inp'. Lo he debugueado y no se porque.

pudieran ayudarme?

gracias