Problema com Delphi, creio eu que seja declaração...

Boa tarde,

Recentemente comprei o livro "Sistema Comercial Integrado com Delphi 2005 - Cadastro e Estoque", a principio gostei bastante do livro por ele construir um aplicativo junto do leitor. Outro fator interessante é a explicação sobre os componentes e suas funções conforme a utilização! Após algum tempo de leitura, cheguei ao Capítulo 9, página 151. A partir desta página o livro começou a pecar nas explicações e dai comeram os problemas que descreverei a baixo!

Atualmente, o problema se dá na declaração de uma classe me parece! Postarei o código e deixarei as linhas que informam os erros comentadas. Abaixo colocarei tambem as mensagens de erro:

Na paleta Menssages acusa o seguinte erro: [DCC Error] frmFormPadrao1.pas(108): E2147 Property 'Executar' does not exist in base class

Na paleta Structure acusa o seguinte erro: Undefined property 'Executar' at line 108 (108:14)

Na paleta Menssages acusa o seguinte erro: [DCC Error] frmFormPadrao1.pas(122): E2003 Undeclared identifier: 'FExecutar'

Na paleta Structure acusa o seguinte erro: Undeclared identifier 'FExecutar' at line 123 (123:3)

unit frmFormPadrao1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ComCtrls, ToolWin, Menus, ExtCtrls, StdCtrls, Mask, DBCtrls,
DB, IBCustomDataSet;

type

 TExecutar = (navegacao);
 TFormPadrao1 = class(TForm)
 ImageList1: TImageList;
 ImageList2: TImageList;
 ImageList3: TImageList;
 ToolBar1: TToolBar;
 btn_AutoFiltrar: TToolButton;
 ToolButton2: TToolButton;
 btn_Inicio: TToolButton;
 btn_Anterior: TToolButton;
 btn_Proximo: TToolButton;
 btn_Final: TToolButton;
 ToolButton7: TToolButton;
 btn_Incluir: TToolButton;
 btn_Alterar: TToolButton;
 btn_Excluir: TToolButton;
 btn_Marcar: TToolButton;
 ToolButton12: TToolButton;
 btn_Gravar: TToolButton;
 btn_Reverter: TToolButton;
 ToolButton15: TToolButton;
 btn_Ajuda: TToolButton;
 btn_Sair: TToolButton;
 PopupMenu1: TPopupMenu;
 m11: TMenuItem;
 m12: TMenuItem;
 N1: TMenuItem;
 m13: TMenuItem;
 m14: TMenuItem;
 N2: TMenuItem;
 m15: TMenuItem;
 m16: TMenuItem;
 PopupMenu2: TPopupMenu;
 m21: TMenuItem;
 N3: TMenuItem;
 m22: TMenuItem;
 PopupMenu3: TPopupMenu;
 m31: TMenuItem;
 m32: TMenuItem;
 N4: TMenuItem;
 m33: TMenuItem;
 m34: TMenuItem;
 StatusBar1: TStatusBar;
 Panel1: TPanel;
 PageControl1: TPageControl;
 TabSheetFicha: TTabSheet;
 TabSheetImprimir: TTabSheet;
 Image1: TImage;
 TabSheetTabela: TTabSheet;
 PanelEntrada: TPanel;
 PanelFicha: TPanel;
 Panel2: TPanel;
 Panel3: TPanel;
 Panel4: TPanel;
 Panel5: TPanel;
 Panel6: TPanel;
 Image2: TImage;
 IBDataSet1: TIBDataSet;
 DataSource1: TDataSource;
 IBDataSet1ID: TIntegerField;
 IBDataSet1STATUS: TIBStringField;
 IBDataSet1MARCA: TIBStringField;
 IBDataSet1DATA_INC: TDateField;
 IBDataSet1DATA_ALT: TDateField;
 IBDataSet1DATA_HAB: TDateField;
 IBDataSet1CAMPO_TESTE: TIBStringField;
 Label1: TLabel;
 DBEdit1: TDBEdit;
 Label2: TLabel;
 DBEdit2: TDBEdit;
 Label3: TLabel;
 DBEdit3: TDBEdit;
 Label4: TLabel;
 DBEdit4: TDBEdit;
 Label5: TLabel;
 DBEdit5: TDBEdit;
 Label6: TLabel;
 DBEdit6: TDBEdit;
 Label7: TLabel;
 DBEdit7: TDBEdit;
 procedure btn_SairClick(Sender: TObject);
 procedure btn_InicioClick(Sender: TObject);
 procedure btn_AnteriorClick(Sender: TObject);
 procedure btn_ProximoClick(Sender: TObject);
 procedure btn_FinalClick(Sender: TObject);
 procedure btn_IncluirClick(Sender: TObject);
 procedure btn_AlterarClick(Sender: TObject);
 procedure m21Click(Sender: TObject);
 procedure btn_GravarClick(Sender: TObject);
 procedure btn_ReverterClick(Sender: TObject);
 procedure FormActivate(Sender: TObject);
 procedure m12Click(Sender: TObject);
 private
 procedure SetExecutar(const Value: TExecutar);
 { Private declarations }
 public
 { Public declarations }
 property Executar; //Primeiro ocorrência de erro: [DCC Error] frmFormPadrao1.pas(108): E2147 Property 'Executar' does not exist in base class

 end;

var
FormPadrao1: TFormPadrao1;

implementation

uses frmDM;

{$R *.dfm}

procedure TFormPadrao1.SetExecutar(const Value: TExecutar);
begin
FExecutar := Value; // Segunda ocorrência de erro: [DCC Error] frmFormPadrao1.pas(122): E2003 Undeclared identifier: 'FExecutar'

case Value of
//Hablita os botões de navegação
navegacao: begin
if IBDataSet1.Eof then
begin

 btn_Proximo.Enabled := False;
 btn_Final.Enabled := False;
 end
 else
 begin
 btn_Proximo.Enabled := True;
 btn_Final.Enabled := True;
 end;

 if IBDataSet1.Bof then
 begin
 btn_Inicio.Enabled := False;
 btn_Anterior.Enabled := False;
 end
 else
 begin
 btn_Inicio.Enabled := True;
 btn_Anterior.Enabled := True;
 end;
 end;
 end;
end;

end.

abraços