varLine: pByteArray; i, j: integer; begin
// считываем высоту картинки for
i := 0 to
Image1.Picture.Bitmap.Height - 1 do
begin
//сканируем по линиям рисунок Line := Image1.Picture.Bitmap.ScanLine[i]; for
j := 0 to
Image1.Picture.Bitmap.Width * 3 - 1 do
//меняем цвет на обратный исходя из RGB Line^[j] := 255 - Line^[j]; end
; Image1.Refresh; end
;