// Load an image with a TIEBitmap, make it negative then save it iebmp := TIEBitmap.Create(); proc := TImageEnProc.create(nil); proc.AttachedIEBitmap := iebmp; iebmp.LoadFromFile('D:\image.jpeg'); proc.Negative(); iebmp.SaveToFile('D:\output.jpeg'); proc.Free; iebmp.Free;