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

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

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;

Недавно добавленные исходники
• Animation Loaders 996 • DeLiKaTeS Tetris (Тетрис) 5 925 • TDictionary Custom Sort 7 874 • Fast Watermark Sources 7 541 • 3D Designer 10 777 • Sik Screen Capture 8 106 • Patch Maker 8 298 • Айболит (remote control) 8 351 • ListBox Drag & Drop 7 203 • Доска для игры Реверси 101 266 • Графические эффекты 8 416 • Рисование по маске 7 793 • Перетаскивание изображений 6 385 • Canvas Drawing 6 761 • Рисование Луны 6 688 • Поворот изображения 5 811 • Рисование стержней 4 758 • Paint on Shape 3 455 • Генератор кроссвордов 4 459 • Головоломка Paletto 3 595 • Теорема Монжа об окружностях 4 390 • Пазл Numbrix 2 844 • Заборы и коммивояжеры 3 795 • Игра HIP 2 561 • Игра Go (Го) 2 571 • Симулятор лифта 2 957 • Программа укладки плитки 2 388 • Генератор лабиринта 3 140 • Проверка числового ввода 2 621 • HEX View 3 024