[Interface]

чтобы я мог сравнивать две почти одинаковые картинки с разницей в пару пикселей

Тут навязывается :

Код:

1 2 3 4 5 6

var xp, xy : Integer; ... For xp := 0 to Image1.Width do For yp := 0 to Image1.Height do If Image1.Pixels[xp,yp] <> Image2.Pixels[xp,yp] then Image3.Pixels[xp,yp] := clRed;

- этот код найдет все отличия Image1 от Image2 и нарисует отличные участки в Image3 красным цветом.

Как сделать, чтобы второй TImage можно было как бы "закодировать" в таблицу пикселей, чтобы каждый параметр РГБ был вариативным

тут я помогу токо так:

Код:

1 2 3 4 5 6 7 8 9 10 11

var r, g, b : array [0..1000, 0..1000] of byte; //тут могут быть ошибки, нужен 2 мерный массив xp, xy : Integer; ... For xp := 0 to Image1.Width do For yp := 0 to Image1.Height do begin r := GetRValue(Image1.Pixels[xp,yp]); g := GetGValue(Image1.Pixels[xp,yp]); b := GetBValue(Image1.Pixels[xp,yp]); end;

- В итоге получим 3 2мерных массива с цветаами... Однако лучше Юзай scanline

с разницей в пару пикселей и чтобы программа распознавала их как одинаковые.

Это вобще как???

Имеется TImage с битмапом внутри. Нужно, чтобы при нажатии на любой участок картинки мышкой создавался TBitmap с шириной и высотой, указанными в TEdit пользователем и участок первой картинки, который был выбран мышкой копировался во второй TImage

Ты тут случаем не про выделение "резиновым" квадратом говоришь?