for i:=0 to Form.Componentcount-1 do
if (Form.Components is TLabel )
and((Form.Components as TLabel ).Caption='Label'+IntToStr(i))
then (Form.Components as TLabel).Caption:='Proba'+IntToStr(i);