procedure TForm5.Button2Click(Sender: TObject);
begin try
anim1.Active :=true;
UpdateCount:=0;
list1.Enabled := false;
CopyNewerFiles(cmb1.Path,form1.vc1.Path);
CopyNewerFiles(form1.vc1.Path,cmb1.Path);
form1.vr1.RefreshTree;
MessageBox(0,PChar('Synchronized '+Inttostr(abs(UpdateCount))+' files successfully !'),PChar(Application.Title),MB_OK+MB_ICONINFORMATION);
list1.Enabled := true;
anim1.Active :=false;
except end;End;