In diesem Beispiel wird 5 Images mit den durchnummerierten Namen Image1, Image2, Image3 usw. das Bild einer Vorlage(Auch ein Image) zugewiesen.
Delphi-Quellcode:
procedure TForm1.dxButton1Click(Sender: TObject);
var i : Integer;
begin
For i := 1 to 5 do
(FindComponent('Image'+IntToStr(i)) as TImage).Picture := Vorlage.Picture;
end;