delphi [Error] : Declaration expected but 'IF' found疑难问题，望大师指点

Question

unit f_printjl;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DB, ADODB, Grids, DBGrids;type
  Tfprintjl = class(TForm)
    ADOConnection1: TADOConnection;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure Edit1keypress(sender: Tobject; var key: char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  fprintjl: Tfprintjl;
  id:string;implementation{$R *.dfm}
 uses f_report;procedure tfprintjl.Edit1keypress(sender: Tobject; var key: char);
begin
if not (key in['0'..'9',#8,#13]) then
key:=#0;
exit;
end;IF key=#13 then
begin
id:=trim(Edit1.text);adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add(select pname,sex from person);
adoquery1.sql.add(where person.pno='''+id+''');
adoquery1.open;if adoquery1.recordcount=0 then
begin
showmessage('员工编号输入错误');
SpeedButton1.enable:=false;
exit;
end
else
SpeedButton1.enable:=true;
showscore();
end;
end;
end.代码如上 出现问题为
[Error] f_printjl.pas(42): Declaration expected but 'IF' found
[Error] f_printjl.pas(44): Undeclared identifier: 'Edit1'
[Error] f_printjl.pas(46): Missing operator or semicolon
[Error] f_printjl.pas(46): '(' expected but ';' found
[Error] f_printjl.pas(47): Missing operator or semicolon
[Error] f_printjl.pas(53): Identifier redeclared: 'Finalization'望大师指点 小妹新学Delphi

Answer 1

1、if not (key in['0'..'9',#8,#13]) then 后面是不是掉了一个begin？ 如果这里没有begin 那下在那个end必须删除
2、 SQL是字符串类型要加单引号引起来：
    adoquery1.sql.add('select pname,sex from person');
    adoquery1.sql.add('where person.pno='''+id+'''');