procedure TForm1.pkzip2ConfirmOverwrite(var Name: String;
  var Confirm: Boolean);
begin try
Confirm:=(MessageBox(0,PChar('"'+ExtractFileName(Name)+'" is already exists in current research project, replace it with package file ?'),PChar(Application.Title),MB_YESNO+MB_ICONQUESTION)=6);
except end;End;