[Elenita]

Puedes saber la extensión del archivo con la función ExtractFileExt de la unidad SysUtils

Código Delphi [-]
 function ExtractFileExt(const FileName: string): string;