Neue Zip-Archiv Komponente

[Willie1]

Ich will's mit TZipFile probieren. Es geht um max. 300 Bilder in einem Zip-Archiv.
Was will ich: ich möchte alle Bilder (die GPI+ lesen kann) aus einem Archiv heraus filtern, egal in welcher Ordnerebene des Archiv sich das Bild befindet und in einem Ordner ablegen. Dann liest mein Programm diese Bilder ein.
Kleiner Anfang von mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PZip: TZipFile;
  Count: Integer;
  pf: string;
  SL: System.TArray<string>;
  i: integer;
begin
  if od.Execute then begin
  PZip:=TZipFile.Create;
    PZip.Open(od.FileName, zmRead);
    Pf:=TmpPath+'§§§~~~';
//    PZip.ExtractZipFile(od.FileName, Pf);
    Count:=PZip.FileCount; //hier werden Ordner mit gezählt
    SetLength(SL,Count);
    SL:=PZip.FileNames;
    for i:=0 to Count - 1 do begin
      //hier filtere ich Bilder aus
      PZip.Extract(SL[i], Pf, true);//<----
    end;
    PZip.Close;
    PZip.Free;
  end;
end;

Hier wird aber die Ordnerstruktur mit erzeugt und das will ich nicht. Willie.