function HasFileExt(const FileName: string): Boolean;
begin
  Result := SysUtils.ExtractFileExt(FileName) <> '';
end;