procedure ParettoWoToru(var Paretto:array [0..255] of TColor; ABitmap:TBitmap);
var
　p:PByteArray;
　x,y:Integer;
begin
　for y:=0 to ABitmap.Height-1 do
　begin
　　p := ABitmap.ScanLine[y];
　　for x:=0 to ABitmap.Width-1 do
　　　Paretto[x] := p[x];
　end;
end;