[[escafandra]]

Otra solución puede ser usar FindComponent:

  TLabel* Label;
  for(int n=0; n<ComponentCount; n++){
    Label = static_cast<TLabel*>(FindComponent("Label"+IntToStr(n)));
    if(Label){
      if(n == 39 || n == 40) Label->Font->Color = clBlue;
      else Label->Font->Color = clBlack;
    }
  }

Saludos.