var
icount:Integer;
begin
with VCLUnZip1 do
begin
ZipName := Self.CheckListBox1.Items[Self.CheckListBox1.itemindex];
ReadZip;
for icount := 0 to count-1 do
begin
CheckListBox2.Items.Add(FullName[icount]);
end;
end;
end;