ciao

...non ho capito come dichiarare 'attivato'

codice:
type
  TFrmAttivazione = class(TForm)
    dxLayoutControl1Group_Root: TdxLayoutGroup;
    dxLayoutControl1: TdxLayoutControl;
    cxGroupBoxCodiceChiave: TcxGroupBox;
    dxLayoutControl1Item1: TdxLayoutItem;
    cxLabel1: TcxLabel;
    cxTextEditCodice: TcxTextEdit;
    BtnAnnulla: TcxButton;
    cxLabel2: TcxLabel;
    cxTextEditChiave: TcxTextEdit;
    BtnEntra: TcxButton;
    BtnGenera: TcxButton;
    procedure BtnEntraClick(Sender: TObject);
    procedure BtnAnnullaClick(Sender: TObject);
    procedure cxTextEditCodiceKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BtnGeneraClick(Sender: TObject);
    procedure cxGroupBoxCodiceChiaveMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    function CalcolaChiave: String;
  public
    { Public declarations }
    function Execute: Boolean;
    Attivato:Boolean;
  end;
in questa maniera mi da errore..
dove lo devo mettere?

grazie