Что значит эта ошибка (password dialog)

[мазер]

unit Unit4;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons;

type
TPasswordDlg = class(TForm)
Label1: TLabel;
Password: TEdit;
OKBtn: TButton;
CancelBtn: TButton;
procedure PasswordChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PasswordKeyPress(Sender: TObject; var Key: Char);

private
{ Private declarations }
public
{ Public declarations }
end;

var
PasswordDlg: TPasswordDlg;

Const
sPassword='732233';

implementation

{$R *.dfm}

procedure TPasswordDlg.FormCreate(Sender: TObject);
begin
OKBtn.Enabled:=False;
end;

procedure proverka;
//var Password: TEdit;
begin
If Password.Text<>sPassword
then {else} Application.Terminate;
PasswordDlg.Close;
end;

procedure TPasswordDlg.PasswordChange(Sender: TObject);
begin
If Length(Password.Text)=0
then OKBtn.Enabled:=False
else OKBtn.Enabled:=true;
end;

procedure TPasswordDlg.PasswordKeyPress(Sende r: TObject; var Key: Char);
begin
case Key of
'0'..'9', 'a'..'z', 'A'..'Z', #8, #95: ;
#13: proverka;
else Key:=Chr(0);
end;
end;

end.

[Virtson]

Сообщение от мазер

unit Unit4;


procedure proverka;

//var Password: TEdit;

begin
If Password.Text<>sPassword
then {else} Application.Terminate;
PasswordDlg.Close;
end;

procedure TPasswordDlg.PasswordChange(Sender: TObject);
begin

If Length(Password.Text)=0

then OKBtn.Enabled:=False
else OKBtn.Enabled:=true;
end;

procedure TPasswordDlg.PasswordKeyPress(Sende r: TObject; var Key: Char);
begin
case Key of
'0'..'9', 'a'..'z', 'A'..'Z', #8, #95: ;
#13: proverka;
else Key:=Chr(0);
end;
end;

end.

Undeclared identifier = переменная не объявлена

насчет Key не знаю, вроде все правильно

[мазер]

не объявлена пассворд текст? sPassword объявлена как константа

[Virtson]

1) если Edit password есть на форме, ошибки быть не должно.
2) значение константы нельзя менять.

лудше выложите весь проект (исходники) в архиве , посмотрим

[-=DeS=-]

проверять нажатие клавиш лучше так
if not (Key in ['0'..'9',#27,#8]) then Key := #0;
думаю побыстрее работать будет...а вообще для этого есть TMaskEdit

вот так ещё можно сделать...и не заморачиваться с фильтрацией клавиш

var pas:string;
begin
pas:='пароль';
if edit1.Text<>pas then showmessage('неправильный пароль')
else
showmessage('всё верно!');
end;