Если с циклами знаком, то решаешь проблему очень просто через findcomponent
например у тебя есть 30 edit-ов и тебе нужно всем едитам прописать 'Test'
пишешь
for i:=1 to 30 do
(findcomponent('Edit'+inttostr(i)) as TEDIT).Text:='Test'
аналогично с Image поступаешь
|