Du hast die 2. Dimension vergessen. Versuch es mal so:
Delphi-Quellcode:
for I := low(AssortmentAlphaMap) to high(AssortmentAlphaMap) do
for u := low(AssortmentAlphaMap[i]) to high(AssortmentAlphaMap[i]) do
AssortmentAlphaMap[u,i]:= bmp.Canvas.Pixels[u,i] = clblue;
Evtl. musst Du u und i umdrehen, aber das hängt davon ab, wie Du die Länge festgelegt hast.