این فیلتر برای تبدیل تصویر به نقاشی با مداد است.شما این فیلتر را در برنامه های معروفی چون فتوشاپ دیده اید.یک دکمه بر روی فرم ایجاد کنید و از کد زیر استفاده کنید.ُُ
procedure TForm1.Button2Click(Sender: T);
var x,y,z : integer;
begin
for x:= 1 to image1.Height-1 do
 begin
  for y := 1 to image1.Width-1 do
 Image1.canvas.pixels[y,x]:=image1.canvas.pixels[y,x] div 256;
 end;
for z:=0 to 2 do
begin
  for y:= 1 to image1.Height-1 do
   begin
    for x := 1 to image1.Width-1 do
    Image1.canvas.pixels[x,y]:=image1.canvas.pixels[x,y] * 256;
  end;
end;
end;

Speed test