Hallo,
zu Deinem 2. Problem. Deine Idee war schon mal nicht schlecht
Hier eine Lösung (ungetestet):
for i := 1 to 20 do (findcomponent('label' + inttostr (i))as tlabel).caption := 'Das ist label Nr. ' + IntToStr(i);
Grüsse,
SCRaT
EDIT: Ohhh, da waren grad einige schneller als ich
EDIT2: Source verbessert, danke an fLaSh11