DeleteMarkerAt example for Delphi

procedure TForm1.DeleteMarkerAtClick(Sender: TObject);
begin
   LEADImage1.Load ( 'e:\image1.jpg', 0, 0, 1 );
   LEADMarker1.LoadMarkers ( 'e:\image1.jpg', 0 );
   LEADMarker1.GetMarker ( 0 );
   LEADMarker1.DeleteMarkerAt ( 0 );
   LEADImage1.SetMarkers ( LEADMarker1, 0 );
   LEADImage1.Save ( 'e:\image2.jpg', FILE_EXIF_JPEG, 24, 2, 0 );

end;