работа с image

procedure TForm1.Button2Click(Sender: TObject);
var r,g,b,cr,cg,cb:byte;
i,j:integer;
begin
 
for i := 0 to image1.Picture.Bitmap.Width-1 do
    for j := 0 to image1.Picture.Bitmap.Height-1 do
     begin
      r:=image1.Canvas.Pixels[i,j];
      g:=image1.Canvas.Pixels[i,j]+(shr 8);
      b:=image1.Canvas.Pixels[i,j]+(shr 16);
      cr:=(exp(133*ln(r)))mod 323;
      cg:=(exp(133*ln(g)))mod 323;
      cb:=(exp(133*ln(b)))mod 323;
      image1.Canvas.Pixels[i,j]:=cr;
      image1.Canvas.Pixels[i,j]:=cg+shl 8;
      image1.Canvas.Pixels[i,j]:=cb+shl 16;
     end;
end;

+(shr 8)

I := J shr 8;

var
  aColor := TColor;
...
  aColor := Image1.Canvas.Pixels[I, J];
  r := GetRValue(aColor);
  g := GetGValue(aColor);
  b := GetBValue(aColor);

cr:=(exp(133*ln(r)))mod 323;
      cg:=(exp(133*ln(g)))mod 323;
      cb:=(exp(133*ln(b)))mod 323;

procedure TForm1.Button2Click(Sender: TObject);
var
  r, g, b,
  cr, cg, cb : Byte;
  I, J : Integer;
begin
  for I := 0 to Image1.Picture.Bitmap.Width - 1 do
    for J := 0 to Image1.Picture.Bitmap.Height -1 do
    begin
      r := Image1.Canvas.Pixels[I, J];
      g := Image1.Canvas.Pixels[I, J] shr 8;
      b := Image1.Canvas.Pixels[I, J] shr 16;
      cr := Round(exp(133 * ln(r))) mod 323;
      cg := Round(exp(133 * ln(g))) mod 323;
      cb := Round(exp(133 * ln(b))) mod 323;
      Image1.Canvas.Pixels[I, J] := cr;
      Image1.Canvas.Pixels[I, J] := cg shl 8;
      Image1.Canvas.Pixels[I, J] := cb shl 16;
    end;
end;

  Image1.Canvas.Pixels[I, J] := cr or (cg shl 8) or (cb shl 16);