[[Bicho]]

Hola mamu, si sólo tienes esos labels y no hay ninguno más en el form puedes probar ha hacer algo como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  For i := 0 to ComponentCount - 1 do
    If Components[i] is TLabel then TLabel(Components[i]).Caption := 'kkkk';
end;

Si hay más labels pero todos tienen esa parte del nombre en común y la otra parte es numérica puedes hacer algo como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i, x : integer;
begin
  For i := 0 to ComponentCount - 1 do begin
    for x := 1 to 10 do begin //diez lo substituyes por el numero de labels que quieras modificar.
    If (Components[i] is TLabel) and (TLabel(Components[i]).Name = 'Label'+IntToStr(x))   then
      TLabel(Components[i]).Caption := 'kkkk';
    end;
  end;
end;

Esperto te sirva,

Saludos