BWR: array [0..7] of byte=(0,1,2,3,4,5,6,7);
BWG: array [0..7] of byte=(0,2,4,6,8,10,12,14);
BWB: array [0..3] of byte=(0,1,2,3);

for B:=0 to 3 do
for G:=0 to 7 do
for R:=0 to 7 do
Begin
k:=B*64+G*8+R;
PallTableBW[k]:=(BWR[R]+BWG[G]+BWB[B]);
end;