[x128]

Нужно сначала взять цвет, а потом получать значения r,g и b

Код:

var
  c: TColor;
  r,g,b: byte;
begin
  c:=image1.Canvas.Pixels[100,67];
  r:=GetRValue(c);
  g:=GetgValue(c);
  b:=GetbValue(c);

обратно:

Код:

  image1.Canvas.Pixels[100,67]:=RGB(r,g,b);