CopyMarkers example for Delphi

procedure TForm1.CopyMarkersClick(Sender: TObject);
var
   i: Integer;
begin
   LEADMarker1.LoadMarkers ( 'e:\image1.jpg', 0 );
   LEADMarker2.CreateMarkers ( );
   LEADImage1.CopyMarkers ( LEADMarker2, LEADMarker1 );

   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;