Statement expected but 'PROCEDURE' found,请高手解决

Question

procedure TForm2.Edit3Exit(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select 姓名 from 用户清单 where 用户编号=edit3.text');
  adoquery1.Open;
  edit1.Text:=adoquery1.fieldbyname('姓名').AsString;
end;

Answer 1

首先检查一下是否已经申声，如果申声都对，然后标点符号也正确，最后的可能就是缺少一个end;如果缺少了end,这个过程就会被认为是上一个模块，可能是另一个过程，也可能是一个函数，总之他作为其它模块一部分，就不是一个独立的单元了，所以应该加上一个end;结束上一个模块。