Hallo und herzlich Willkommen in der
DP 
Zunächst ein Tip: Nutze die Delphi Tags, wenn Du Code postest
Dein Problem könntest Du zb so lösen:
Delphi-Quellcode:
var i:Integer;
begin
For i:=0 to ComponentCount-1 do
if (Components[i] is TButton) then
if Copy(TButton(Components[i]).Name, 1, 6)='Button' then
TButton(Components[i]).Caption:='Hello world i am number: '+Copy(TButton(Components[i]).Name, 7, 2);
Grüßle!
Edit: Wo sind denn schon wieder der rote Kasten geblieben
