System.Zip Countfiles

[zeras]

Ich möchte die Anzahl der Dateien in einer Zipdatei ermitteln, damit ich beim Auspacken den Fortschritt anzeige.
Leider gibt es Differenzen, wenn man die Datei mit 7Zip auspackt mit dem Explorer dann die Anzahl anzeigen läßt.
In dieser Funktion unten werden offenbar Datei und Verzeichnisse gezählt.
Ich habe aber keine Funktion gefunden, wo nur Dateien gezählt werden.
Hat jemand eine Idee?

Delphi-Quellcode:

  Result := 0;
  Zip := TZipFile.Create;
  try
    try
      Zip.Open(SrcfName, zmRead);
      result := Zip.FileCount;
      Zip.Close;