@DeddyH
man kann das schon kapseln, Du möchtest sowas
Delphi-Quellcode:
var
B:TButton;
begin
b := TButton(FindComponent('Button' + IntToStr(i)));
if Assigned(B) then
begin
//was auch immer
end;
aber wenn ich weiß was ich tue spare ich mir das mitunter ...