procedure TForm3.Timer2Timer(Sender: TObject);
begin try
timer2.Enabled := false;
form1.pkzip2.ExtractFiles('*.*');
form3.close;
except end;End;