[Megabyte]

Вот пример:

Код:

 
Var 
 *i, k: integer; 
 *S: String; 
Begin 
 *For k:=0 to Application.ComponentCount-1 do 
 * begin 
 * * S:=Application.Components[k].ClassName; 
 * * If Copy(S, Length(S)-3, 4)='Form' then 
 * * * For I:=0 to Application.Components[k].ComponentCount-1 do 
 * * * * *If (Application.Components[k].Components[i].ClassName='TLabel') * or 
 * * * * * * (Application.Components[k].Components[i].ClassName='TButton') then 
 * * * * * begin 
 * * * * * * If Application.Components[k].Components[i].ClassName='TLabel' then 
 * * * * * * * If (Application.Components[k].Components[i] as TLabel).Name='Label'+IntToStr(i) 
 * * * * * * * * *(Application.Components[k].Components[i] as TLabel).Caption:='Метка '+IntToStr(i); 
 * * * * * * If Application.Components[k].Components[i].ClassName='TButton' then 
 * * * * * * * If (Application.Components[k].Components[i] as TButton).Name='Button'+IntToStr(i) 
 * * * * * * * * *(Application.Components[k].Components[i] as TButton).Caption:='Кнопка '+IntToStr(i); 
 * * * * * end; 
 * * * *end; 
 * *end; 
End;