Image zeichnet nicht immer

[mischerr]

Hallo!

> TImage(Form1.FindComponent('img_Proz'+inttostr(i)) ).Canvas.FillRect(ClientRect);

- ClientRect bezieht sich auf das Form und nicht auf das Image.
- Vor der Zeichenoperation Canvas.Brush.Color und Canvas.Brush.Style setzen, da Pen AFAIK nur für die Umrandung zuständig ist.

Desweiteren...
...nimm doch einfach 1 (..4) Images und zeichne echte, verschiedene, gefüllte Rechtecke. Das würde dann auch die for j - Schleife sparen.
...in obigem Befehl Form1 weglassen oder durch Self ersetzen
...FindComponent weniger oft aufrufen und in einem TComponent zwischenspeichern, welchen ich dann casten würde. Ich halte das so für zu performancelastig. Werden die Images dynamisch bzw. zur Laufzeit erstellt? Wenn nein, dann würde ich die Komponente direkt ansprechen und mir den FindComponent komplett sparen.