delphi 7 Tcomponent e Tcontrol

[alka]

Definisci una variabile di tipo TComponent e lavora su quella, oppure se sai di dover trattare solamente dei pulsanti, puoi scrivere un codice simile a questo:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  b: TButton;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TButton then
    begin
      b := TButton(Components[i]);
      b.Caption := 'Mia caption';
      b.Hint := 'Mio hint';
      // ...
    end;
end;