HELP!用ADO连接时提示的错误

Question

我做一个登录界面，分别添加了输入用户名和密码的文本框，还有登录按钮和取消按钮，ado connettion控件，和ado query控件。窗体完整代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;type
  TLogin = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }  public
    { Public declarations }
  end;var
  Login: TLogin;implementation{$R *.dfm}procedure Tlogin.Button1Click(Sender: TObject);
var username,password:string;
begin
   if edit1.Text=''then
      messagebox(Login.handle,'请输入用户名','警告',mb_ok+mb_iconwarning)
   else
      if edit2.Text=''then
      messagebox(Login.handle,'请输入密码','警告',mb_ok+mb_iconwarning)
   else
      begin
      username:=edit1.Text;
      password:=edit2.Text;
      with ADOQuery1 do
        begin
        close;
        sql.clear;
        sql.add('select * from login where username=');
        sql.add(''''+username+''''+'and password='+''''+password+'''');
        open;
        first;
        if Recordset.recordcount=1 then
           begin
             Login.Hide;
            
             end
        else
            messagebox(Login.handle ,'请输入正确的密码','警告',mb_ok+mb_iconwarning)
        end;
  end;end;工程完整代码是：
program Project1;uses
  Forms,
   Unit1 in 'Unit1.pas' {Login};(点击第二个错误停留在此处){$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TLogin, Login);
  Application.Run;
end.
错误提示如下了：
[Error] Unit1.pas(64): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 1

.........
      end;
  end;end;end.//你少了个end