procedure TForm3.Timer1Tier(Sender: TObject);
begin try
timer1.Enabled := false;
form1.pkzip1.AddFiles('*.*',faReadOnly+faHidden+faSysFile+faDirectory+faArchive+faAnyFile);
form1.pkzip1.Save;
form3.close;
except end;End;