Негатив картинки

var

  Line: 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
;

Другое по теме:

• Как из Делфи рисовать в любой части экрана или в чужом окне
• Зеркальное отображение
• Как создать список файлов с их изображением