如何实现色调功能？就改变images中的图片，并保存当前的修改！小弟初学编程还请大侠赐教！(28分)

如何实现色调功能？就改变images中的图片，并保存当前的修改；在HyperSnap抓图软件中的
菜单：图像-色调，很简单的构造，就一个滚动条！

我现在保存修改后的图像都不会！请不要见笑；

怎么没有高手帮忙呢，以前看这帖子，但是现在找不到，

没有人回答，真的吗，卷起千堆雪，快出山

小弟有事相求

//一个保存图片的例子
procedure TForm1.N3Click(Sender: TObject);
begin
form1.savedialog1.filter:='图片(*.jpg)|*.jpg|(*.*)|*.*';
if form1.savedialog1.execute then
form1.image1.picture.loadfromfile(form1.savedialog1.filename+'.bmp');
end;

如何实现色调功能，就是改变改像的颜色基调，怎么还没有人帮忙，高手，你们在什么地方

procedure TMainForm.RAddClick(Sender: TObject);//红色分量增加，其他分量不便
var
p ByteArray;
x,y :Integer;
Bmp :TBitmap;

begin
Bmp :=TBitmap.Create;
Bmp.Assign(ChildForm.Image1.Picture.Bitmap);
Bmp.PixelFormat :=pf24Bit;//24位的位图
for y:=0 to Bmp.Height-1 do
begin
p:=Bmp.scanline[y];
for x:=0 to Bmp.Width-1 do
begin

if p[x*3+2] <245 then
begin
p[x*3+2]:=p[x*3+2]+10;
end;
end ;

end;

ChildForm.image1.Picture.Bitmap.Assign(Bmp);
jp1:=Tjpegimage.Create;
jp1.Assign(bmp);//转化位jpg格式
Bmp.Free;

bmpnumber:=bmpnumber+1;
//保存图片
jp1.SaveToFile('c:/temp/'+inttostr(bmpnumber)+'.jpg');
jp1.Free;end;
其他分量调节同上