WriteMetaData example for Delphi

procedure TForm1.WriteMetaDataClick(Sender: TObject);
begin
   LEADMarker1.LoadMarkers ( 'e:\image1.jpg', 0 );
   LEADImage1.SetMarkers ( LEADMarker1, 0 );
   LEADImage1.WriteMetaData ( 'e:\image2.tif', METADATA_ALL );
end;