Obtiene la extensión de un fichero (incluido el «.»).

Ejemplo de utilización:

function extraerSoloNombreFichero (fichero : string) : string;
var
  ficheroFinal : string;
begin
  ficheroFinal := ExtractFileName(fichero);
  ficheroFinal := copy (ficheroFinal, 1, pos (ExtractFileExt (ficheroFinal), ficheroFinal) - 1);
  Result := ficheroFinal;
end;