我想把NAME对应的密码赋值给EDIT2。TEXT,为什么这段代码运行出错

Question

dm1.dl1.Close;
dm1.dl1.SQL.Clear;
dm1.dl1.SQL.Add('select paw from paw where name = :a');
dm1.dl1.Parameters.ParamByName('a').Value := self.Edit1.Text;
dm1.dl1.ExecSQL;   edit2.Text:=dm1.dl1.Parameters.ParamByName('a').Value;//
//我想把NAME对应的密码赋值给EDIT2。TEXT
为什么这段代码运行出错

Answer 1

edit2.Text:=dm1.dl1.FieldByname('paw').AsString

Answer 2

dm1.dl1.Open;
edit2.Text:=VarToStr(dm1.dl1.Parameters.ParamByName('a').Value);

Answer 3

edit2.Text:=dm1.dl1.Parameters.ParamByName('a').asstring