dbgird显示不了数据

procedure TForm1.Edit1Change(Sender: TObject);
var
t:Integer;
begin
t:=StrToInt(Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
t:Integer;
begin
Query1.sql.Add('select * from ZD_PERSONNAL where GH:='''+Edit1.text+'''') ;
end;
end.

这是我设计的一个查询程序，但是最后输入工号显示不了该工号的信息 求大神指导 --------------------编程问答-------------------- A)请转 Delphi 区
B)什么数据库？SQL 中应该不会有 := 比较符，应该是 =，难道没有报错？

补充：VB ,  数据库(包含打印，安装，报表)