var
r, g, b: byte;
colors: array [1..1000] of TColor;
i, j, k: Integer;
begin
r := 0;
g := 0;
b := 0;
for i := 1 to 10 do
begin
inc(r, 10);
for j := 1 to 10 do
begin
inc(g, 10);
for k := 1 to 10 do
begin
inc(b, 10);
colors[i*j*k] := rgb(r, g, b);
end;
end;
end;
end;