Господа, помогите дописать прогу на delphi Опции

[Иван Булочкин (гость)]

Чувки, давно и безутешно ищу эту схему.. помогите плиз

[BSV]

Если правильно понял GetRValue(Image1.Picture.Bitmap.Canvas.Pixels[x,y]); GetGValue(Image1.Picture.Bitmap.Canvas.Pixels[x,y]); GetBValue(Image1.Picture.Bitmap.Canvas.Pixels[x,y]);