GetMarkers example for Delphi

procedure TForm1.GetMarkersClick(Sender: TObject);
var
   i: Integer;
begin
   LEADImage1.Load ( 'e:\image1.jpg', 0, 0, 1 );
   LEADMarker1.LoadMarkers ( 'e:\image1.jpg', 0 );
   LEADImage1.SetMarkers ( LEADMarker1, 0 );
   LEADImage1.Save ( 'c:\image2.jpg', FILE_EXIF_JPEG, 24, 2, 0 );
   LEADMarker2.GetMarkers ( 0 );
   for i:= 0 to LEADMarker2.Count - 1 do
   begin
      LEADMarker2.GetMarker ( i );
      ShowMessage ( 'Marker Type= ' + IntToStr(LEADMarker2.MarkerType) + Chr(13) +
                    'Marker Element Count= ' + IntToStr(LEADMarker2.ElementCount) );
   end;
end;