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

Надрали одного хакера в зад, тот жалуетсяа корешу:
- Вот, типа, поймали меня на улице геи и в зад отымели. Теперь в ж#пе дырка как у слона во рту.
А корешь ему и отвечает:
- Зазипуй!

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 166 • TDictionary Custom Sort 3 340 • Fast Watermark Sources 3 093 • 3D Designer 4 849 • Sik Screen Capture 3 348 • Patch Maker 3 554 • Айболит (remote control) 3 662 • ListBox Drag & Drop 3 016 • Доска для игры Реверси 81 711 • Графические эффекты 3 946 • Рисование по маске 3 250 • Перетаскивание изображений 2 631 • Canvas Drawing 2 754 • Рисование Луны 2 584 • Поворот изображения 2 191 • Рисование стержней 2 169 • Paint on Shape 1 569 • Генератор кроссвордов 2 237 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 232 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 057 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 475 • Программа укладки плитки 1 218 • Генератор лабиринта 1 548 • Проверка числового ввода 1 366 • HEX View 1 497 • Физический маятник 1 358