Consulta

[ecfisa]

Hola jusar.

void __fastcall TForm1::NumerarClick(TObject *Sender)
{
  for(int i=0;i < ComponentCount; i++)
    if(Components[i]->ClassNameIs("TLabel")){
      TLabel *L = static_cast<TLabel*>(Components[i]);
       L->Caption = L->Name[L->Name.Length()];
   }
}

Saludos.

Edito: El código funciona siempre y cuando el último caracter de la propiedad Name de los TLabel sean los números consecutivos, como solicitas en tu mensaje:

Ejm label1=1, label2=2 y asi consecutivamente...