Var ARect: TRect; begin with Image1.Canvas do begin CopyMode:=cmpatInvert; ARect:=Rect(0,0,Image1.Width, Image1.Height); CopyRect(ARect, Image1.Canvas, ARect); CopyMode:=cmSrcCopy; end; end;