procedure TForm1.Button1Click (Sender : TObject);
var lo:tbitmap;
i,j:integer;
kl:longint;
rr,gg,bb:byte;
res:byte;
begin
Screen.Cursor := crHourglass;
lo:=tbitmap.create;
lo.Width:=Image1.Width;
lo.height:=Image1.height;
for i:=0 to Image1.Width+1 do
begin
for j:=0 to Image1.height+1 do
begin
kl:=ColorToRGB(Image1.Canvas.Pixels[i,j]);
rr:=byte(kl);
gg:=byte(kl shr 8);
bb:=byte(kl shr 8);
res:=(rr+gg+bb) div 3;
lo.Canvas.Pixels[i,j]:=rgb(res,res,res);
end;
end;
Image1.Canvas.Draw(0,0,lo);
Screen.Cursor := crDefault;
lo.free;
end;