Random Grauwert für Image/Canvas

[freeway]

ersetz die Zeile vor end; mit
Image2.Canvas.Pixels[i, j]:= RGB(Random(255),Random(255),Random(255));