With unzipMain do（unzipMain是unzip）
begin
ZipName := edt2.Text; // set the zip filename
ReadZip;
// FilesList.Add( '*.cpp' );
// FilesList.Add( 'myprog.exe' );
// FilesList.Add( '?<0-9>*\*.h' );
// FilesList.Add( Filename[Count-1] );

DoAll := True;
DestDir := edt1.Text;
RecreateDirs := False;
RetainAttributes := True;
Unzip;

這段代碼執行後沒用反映，不會解壓，如果把上面的注釋去掉，// FilesList.Add( Filename[Count-1] ); 會報錯，我查了下：count=0，這是怎麼回事啊？請幫幫忙？謝謝