Vclzip显示压缩进度

progressbar1.Max:=myzip.ZipSize; 


procedure TForm1.myzipFilePercentDone(Sender: TObject; Percent: Integer); 
begin 

progressbar1.Position:=percent; 
end; 

procedure TForm1.myzipTotalPercentDone(Sender: TObject; Percent: Integer); 
begin 
progressbar2.Position:=percent; 
end;