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;