Danke, habe es jetzt gerade gelöst habe mit eurem Hinweis auf FindComponent gesucht und damit folgenden Code produziert der Funktioniert.
Timeage(FindComponent('img'+InttoStr(i)+InttoStr(i2))).Picture := ImgFragezeichen.Picture;
Danke für die schnelle und kompetente Hilfe
Greetz
Chris