LoadMarkers example for Delphi

procedure TForm1.LoadMarkerClick(Sender: TObject);
begin
   LEADImage1.Load ( 'e:\image1.jpg', 0, 0, 1 );
   
   LEADMarker1.MethodErrorsEnabled:= True;
   try
      LEADMarker1.LoadMarkers ( 'e:\image1.jpg', 0 );
   except
      ShowMessage('File load failed'#10'Error No ' + IntToStr(LEADMarker1.Error) );
      Exit;
   end;
         
   LEADImage1.SetMarkers ( LEADMarker1, 0 );
   LEADImage1.Save ( 'e:\image2.jpg', FILE_EXIF_JPEG, 24, 2, 0 );
end;