AnnEnumerate method example for Delphi

var
//Global declarations
RasterAnn: LEADRasterAnnotation;
RasterAnnToolbar: LEADRasterAnnToolBar;

procedure TForm1.Button1Click(Sender: TObject);
begin
   RasterAnn:= CoLEADRasterAnnotation.Create ();
   RasterAnnToolbar:= CoLEADRasterAnnToolBar.Create ();
   RasterAnn.AnnParentRasterView := LEADRasterView1.Raster;
   LEADEventSink1.Connect (RasterAnn, _LEADRasterAnnotationEvents);
   RasterAnn.AnnUserMode:= ANN_USERMODE_DESIGN;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   //This example enumerates through all objects in the AnnContainer
   //For each object, the AnnEnumerate event is fired
   RasterAnn.AnnEnumerate (RasterAnn.AnnContainer, ANN_FLAG_RECURSE + ANN_FLAG_NOTTHIS, '');
end;