Button deaktivieren / aktivieren

[XecuterX]

Hier mal der Ausschnitt:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  Tspin = class(TForm)
Button1: TButton;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  spin: Tspin;
  freie_attribute : integer;


implementation

{$R *.dfm}

procedure attribute_ueberpruefen;   
begin;
if freie_attribute = 25 then 
  button1.enabled := false;
end;

...

Ja, der Button hat nen schönen Platz auf meinem Formular und auch der Name ist gleich