[[maeyanes]]

Hola...

Otra opción sería que guardes los botones en una lista al crear la forma, así los buscas por medio de su index:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    FBtnList: TObjectList;
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;

begin
  FBtnList := TObjectList.Create(False);
  for I := 0 to Pred(ComponentCount) do
    if Components[i] is TButton do
      FBtnList.Add(Components[i])
end;

procedure TForm1.MarcaBoton(Index: Integer);
begin
  TButton(FBtnList[Index]).Enabled := False
end;

Aquí lo único es que el rango sería de 0 a n - 1...


Saludos...