OnEnumerateMarkers example for Delphi

procedure TForm1.EnumMarkersClick(Sender: TObject);
begin
   LEADMarker1.LoadMarkers ( 'e:\image1.jpg', 0 );
   LEADMarker1.EnumMarkers ( );
end;

procedure TForm1.LEADMarker1EnumerateMarkers(uType,
  uElementCount: Cardinal);
var
   i: Integer;
begin
   ShowMessage ( 'Marker Type= ' + IntToStr(uType) + Chr(13) +
                   'Marker Element Count= ' + IntToStr(uElementCount) );
   for i:= 0 to uElementCount - 1 do
   begin
      LEADMarker1.Element[i];
   end;
end;