Fórum Erro nas variaveis GlbNumero e Escolha #336453

Boa noite, masi uma vez peço ajuda dos colegas

eu estou iniciando com delphi e firebird, baixei um apostila, fiz tudo o que estava nela mas esta dando erro na hora de compilar em: GlbNumero e Escolha, não vi nenhuma definição para elas na apostila.

DESDE JÁ OBRIGADO PELA ATENÇÃO DE TODOS

veja o código do cadastro de alunos: Exemplo

[b:476d24d37c] CODIGO DO CADALUNO[/b:476d24d37c]
procedure BtFecharClick(Sender: TObject);
procedure BtIncluirClick(Sender: TObject);
procedure BtAlterarClick(Sender: TObject);
procedure BtExcluirClick(Sender: TObject);
procedure BtCancelarClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
Procedure ControlaBotoes;
Procedure AbreCadAluno(ID : integer; Escolha : string);
public
{ Public declarations }
end;

var
FormCadAluno: TFormCadAluno;

implementation

uses dmodule, ConsAluno;

{$R *.dfm}

procedure TFormCadAluno.AbreCadAluno(ID: integer; Escolha: string);
begin
with dm do
begin
CDSAluno.Close;
CDSAluno.Params[0].AsInteger := ID;
CDSAluno.Open;
if Escolha = ´I´ then
begin
CDSAluno.Append;
// CdsCadClientesSTATUS.Value := ´T´;
CDSAlunoA_DTCAD.AsDateTime := now;
end
Else
CDSAluno.Edit;
end;

end;

procedure TFormCadAluno.BtFecharClick(Sender: TObject);
begin
Close;
end;

procedure TFormCadAluno.ControlaBotoes;
begin
BtIncluir.Enabled := not BtIncluir.Enabled;
BtAlterar.Enabled := not BtAlterar.Enabled;
BtExcluir.Enabled := not BtExcluir.Enabled;
BtOk.Enabled := not BtOk.Enabled;
BtCancelar.Enabled := not BtCancelar.Enabled;
end;

procedure TFormCadAluno.BtIncluirClick(Sender: TObject);
begin
Escolha := ´I´;
AbreCadAluno(-1,Escolha);
ControlaBotoes;
end;

procedure TFormCadAluno.BtAlterarClick(Sender: TObject);
begin
GlbNumero := 0;
try
Application.CreateForm(TFormConsAluno, FormConsAluno);
FormConsAluno.ShowModal;
finally
FormConsAluno.Release;
end;
If GlbNumero <> 0 then
begin
Escolha := ´A´;
AbreCadAluno(GlbNumero,Escolha);
ControlaBotoes;
end;
end;

procedure TFormCadAluno.BtExcluirClick(Sender: TObject);
begin
GlbNumero := 0;
try
Application.CreateForm(TFormConsAluno,FormConsAluno);
FormConsAluno.ShowModal;
finally
FormConsAluno.Release;
end;
If GlbNumero <> 0 then
begin
Escolha := ´E´;
AbreCadAluno(GlbNumero,Escolha);
ControlaBotoes;
end;
end;

procedure TFormCadAluno.BtCancelarClick(Sender: TObject);
begin
dm.CDSAluno.CancelUpdates;
dm.CDSAluno.Close;
GlbNumero := 0;
Escolha := ´´;
ControlaBotoes;
end;

procedure TFormCadAluno.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if dm.CDSAluno.State in [dsinsert,dsedit] then
CanClose := false;
end;

[b:476d24d37c]AQUI O CODIGO DA CONSALUNO[/b:476d24d37c]
procedure BtconsultarClick(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormConsAluno: TFormConsAluno;

implementation

uses dmodule;

{$R *.dfm}

procedure TFormConsAluno.BtconsultarClick(Sender: TObject);
begin
with dm do
begin
Screen.Cursor := crHourGlass;
CdsConsAluno.Close;
CdsConsAluno.Params[0].AsString := EdNomeAluno.Text + ´¬´;
CdsConsAluno.Open;
Screen.Cursor := crDefault;
end;
end;

procedure TFormConsAluno.DBGrid1DblClick(Sender: TObject);
begin
with dm do
begin
GLBnumero := CdsConsAlunoA_ID.AsInteger;
end;
FormConsAluno.Close;
end;

procedure TFormConsAluno.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
dm.CdsConsAluno.Close;
end;


[/b]