grazie ragazzi..... ho risolto cosi:

codice:
var
  i:integer;
.....

  For I := 1 to 40 do
  begin
      TcxButton(FindComponent('Button'+IntToStr(I))).Caption:= inttostr(i);
  end;