Delphi-Quellcode:
PatBildAr[i] := timage.Create(self); // Damit wird das Image auf Self (ermutlich ein Formular?)
PatBildAr[i].Parent := PanelTop; // und das PanelTop gelegt.
eventuell:
Delphi-Quellcode:
PatBildAr[i] := timage.Create(nil);
PatBildAr[i].Parent := nil;
In dem Fall darf aber (zu einem späteren Zeitpunkt, bei Programmende ...) die Freigabe der Bilder im Array nicht vergessen werden.
Eventuell aber auch
PatBildAr[i].Visible := false;
Visible erst dann auf True setzen, wenn die Anzeige erfolgen soll und wieder auf False, wenn keine Anzeige mehr erfolgen soll.