procedure InvertBitmap(bmp: TBitmap); var r: TRect; begin r:=Rect(0, 0, bmp.Width, bmp.Height); bmp.Canvas.CopyMode:=cmDstInvert; bmp.Canvas.CopyRect(r , bmp.Canvas, r); end;