EasyMap VCL
TEasyMap.StopProgress
procedure StopProgress;
Description
You can use this method in combination with StartProgress, ShowProgress methods for progress indication while performing some operation. In this case OnStopProgress event will be called.

procedure TForm1.Button1Click(Sender: TObject);
var
 i, iCount: Integer;
begin
 EasyMap1.StartProgress(0, EasyMap1.Layers.Last.ObjectCount-1, 'Calculate total points in layer...');
 iCount := 0;
 try
  for i := 0 to EasyMap1.Layers.Last.ObjectCount-1 do
   begin
    Inc(iCount, EasyMap1.Layers.Last.Objects[i].Parts[0].Points.Count);
    EasyMap1.ShowProgress(i);
   end;
 finally
  EasyMap1.StopProgress();
 end;
end;
  
procedure TForm1.EasyMap1StartProgress(Sender: TObject; Min, Max: Integer;
  Title: String);
begin
 ProgressBar1.Min := Min;
 ProgressBar1.Max := Max;
 Caption := Title;
end;
  
procedure TForm1.EasyMap1ShowProgress(Sender: TObject; Progress: Integer);
begin
 ProgressBar1.Position := Progress;
end;
  
procedure TForm1.EasyMap1StopProgress(Sender: TObject);
begin
 ProgressBar1.Position := ProgressBar1.Min;
end;