[vtdeleon]

Saludos

Mira a ver si con esto:

Código Delphi [-]
var
  i,n:Integer;
begin
  n:=0;
  for i:= 0 to ComponentCount-1 do
    if Components[i] is TButton then begin
      TButton(Components[i]).Caption:=IntToStr(n);
      Inc(n);
    end;
end;

Es algo rapidito, quizas necesite alguna depuracion