Delph7 Record, object or class type required 错误

Question

Unit1代码如下：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ComCtrls, DB, DBTables;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Button1: TButton;
    XPManifest1: TXPManifest;
    TabControl1: TTabControl;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Query1: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2,Unit3;
{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close;
form2.show;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   if edit2.text='' then
   showmessage('请输入用户名！')
   else
    begin
     if edit1.text='' then
     showmessage('请输入密码!')
     else
    begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('select USER from KPWD where USER=:edit2.text');
     if  Query1.RecordCount=0   then
        begin
          showmessage('用户名有误.请确认!')
         end
         else
         begin
         Query1.SQL.Add('setect PWD from KPWD where USER=:edit2.text and PWD=:edit1.text');
         if  Query1.RecordCount=0   then
          begin
          showmessage('密码有误.请确认!')
          end
      else
        begin
   form1.Hide;
   form2.Show;    end
end;
end.运行时提示:
[错误] Unit1.pas(75): Record, object or class type required
[错误] Unit1.pas(77): 'END' expected but end of file found
[致命错误] Kolor_E_Manager.dpr(8): Could not compile used unit 'Unit1.pas'本人菜鸟一个，反复看了N遍代码，头都晕了，还是百思不得其解！
请求各位的帮助！小弟万分感激！

Answer 1

这个问题刚刚算是解决了，少了2个END。
另外运行的时候有问题。应该是query1的问题吧。

Answer 2

     begin 
     Query1.SQL.clear;   
     Query1.SQL.Add('setect PWD from KPWD where USER=:edit2.text and PWD=:edit1.text'); 
        if  Query1.RecordCount=0  then 
          begin 
          showmessage('密码有误.请确认!') 
          end 

Answer 3

    Query1.Close; 
    Query1.SQL.Clear; 
    Query1.SQL.Add('select USER from KPWD where USER=:edit2.text');
    Query1.open; 
    if  Query1.RecordCount=0  then 
        begin 
          showmessage('用户名有误.请确认!') 
        end 
        else 
        begin 
        Query1.Close; 
        Query1.SQL.Clear;        Query1.SQL.Add('setect PWD from KPWD where USER=:edit2.text and PWD=:edit1.text');
        Query1.open;  
        if  Query1.RecordCount=0  then 
          begin 
          showmessage('密码有误.请确认!') 
          end