sql语句(50分)

procedure TForm5.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from 表1.dbf where 运编号="33333"');
adoquery1.open;
end;
end;
上面的SQL语句运行通过没问题。
下面的加了变量后就不运行报错，请问下面的SQL语句哪里错了
procedure TForm5.Button3Click(Sender: TObject);
var
a:string;
begin
a:=edit1.text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from 表1.dbf where 运编号=a');
adoquery1.open;
end;

end.

adoquery1.SQL.add('select * from 表1.dbf where 运编号=:a');
adoquery1.parambyname(a).asstring:=edit1.text;

to higoal
照你的方法试过后，还是不行。

adoquery1.SQL.add('select * from 表1.dbf where 运编号=:a');
adoquery1.parameters.parambyname('a').asstring:=edit1.text;

运编号是integer还是string？如果是string 照上面的语句，如果是integer
adoquery1.parameters.parambyname('a').asinteger:=strtoint(edit1.text);