procedure TForm1.Button6Click(Sender: TObject);
var
i,j,k:integer;
Begin
	screen.Cursor:=crHourGlass;
	for i:=0 to image1.Width-1 do
		for j:=0 to image1.Height-1 do
			k = GetRValue(image1.Canvas.Pixels[i,j]);
				image2.Canvas.Pixels[i,j]:=RGB(k,k,k);
	screen.Cursor:=crDefault ;
end;