WriteMarkerAction example for Delphi

procedure TForm1.LEADImage1TransformMarker (iMarker, lSize: Integer;
  pData: Pointer; iTransform: Integer);
begin
   //   I will replace the comment present in the file with my own comment
   if (iMarker = $FE) Then
   begin
      LEADImage1.WriteMarkerAction:= WRITEMARKER_IGNORE;
      LEADImage1.WriteMarker (iMarker, 10, PChar('My comment'));
   end;
end;
   //Rotate the file 90 degrees
LEADImage1.TransformFile ('c:\temp\1.jpg', 'c:\temp\2.jpg', FILE_TRANSFORM_ROTATE90, 1);