Datei in einer zip löschen

[-Phantom-]

Hey Leute,

Ich bin ja grade dabei einen "Entpacker" zu programmieren. Ich hab es nun so gemacht das man eine .zip öffnen kann und dann können die Inhalte angezeigt werden. Nun wollte ich es so machen das einzelne Dateien gelöscht werden können. Mein
versuch:

Delphi-Quellcode:

procedure TForm2.sBitBtn6Click(Sender: TObject);
var
i : Integer;
begin
with slistview1 do
 for i := 0 to Items.Count - 1 do
if Items[i].Selected then
begin
abzipper1.OpenArchive(openarchive);
delepf := items[i].SubItems[0]; // der Pfad z.B C:\blala....
abzipper1.DeleteFiles(delepf);
abzipper1.CloseArchive;
end;
slistview1.Selected.Delete;
end;

end.

Wisst ihr was ich falsch mache?
// das Problem ist das die Datei immer noch vorhanden ist