[Interface]

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

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

Код:

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 можно было как бы "закодировать" в таблицу пикселей, чтобы каждый параметр РГБ был вариативным

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

Код:

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

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