WriteComment example for Delphi

   { set the comment}
   LEADImage1.Comment[CMNT_SZARTIST] := 'Me';

   { write the comment into page 1 of TEST.TIF}
   LEADImage1.WriteComment(pChar('Test.Tif'), 1);

   { read the comment and display it}
   MessageBox(Handle,
   pChar(VarToStr(LEADImage1.ReadComment('TEST.TIF', 1, CMNT_SZARTIST))),
   'test',0);