新手建立用户登陆窗口的问题

Question

小弟要做个课题,按书上做了一个登录窗口,不过运行不到,小弟急需,请各位高手帮帮忙,先谢了源代码如下unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TDengLu = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    UseName: TEdit;
    PassWord: TEdit;
    BtnOK: TButton;
    BtnCancel: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  DengLu: TDengLu;implementation{$R *.dfm}procedure TDengLu.FormCreate(Sender: TObject);
begin
CONST
iusename='yonghu';
ipassword='12345';
end;procedure TDengLu.BtnOKClick(Sender: TObject);
begin
if (usename.text=iusename)and(password.text=ipassword) then
MessageDlg('欢迎使用!',mtInformation, [mbOK], 0)
else
MessageDlg('对不起',mtInformation,[mbOK],0);
end;procedure TDengLu.BtnCancelClick(Sender: TObject);
begin
close;
end;end.
系统提示说statement expected but'CONST'found 
expected but";"found
Could not compile used unit 'unit.pas'

Answer 1

procedure TDengLu.FormCreate(Sender: TObject);
begin
CONST
iusename='yonghu';
ipassword='12345';
end;将上面的begin移动到end的上面

Answer 2

procedure TDengLu.FormCreate(Sender: TObject);
CONST
iusename='yonghu';
ipassword='12345';
begin
end;移成这样后,错误变成
Undeclared identifier:"iusename"
Undeclared identifier:"ipassword"
type of experssion must be boolean