我做了一个聊天的程序，设想是通过向数据库中INSERT数据，同时利用DBGRID显示，但DBGRID不能同步更新，只有你第二次发信息时才能看到对方的回答，请问各位有办法解决吗？或有更好的方法实现呢？

我的代码是这样的
if edit1.text='' then
showmessage('不能发空信息！')
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='insert into 001(呢称,发言,日期) values('''+label1.Caption+''','''+edit1.Text+''','''+jintian+''')';
adoquery1.ExecSQL;
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.SQL.text:='select top 30 * from 001 order by 排序 desc';
adoquery1.Open;
edit1.Clear;

可是不能同步更新？？？？？？
只有第二次发消息时才能看到对方的回答，请问有什么方法解决吗？？？