为什么我的数据在显示的时候总是冲到第一条？(50分)

运行时在grid里显示新加的数据总是冲掉第一条记录，关闭程序，查看数据库，新加的
记录又在最后一条，第一条页还在。为什么？？？

procedure TForm1.Button1Click(Sender: TObject);
begin
if Table1.CanModify then
begin
Table1.Append;
if Form2.ShowModal=mrOK then
begin
Table1.Fields[0].Value:=Form2.Edit1.Text;
Table1.Fields[1].Value:=Form2.Edit2.Text;
Table1.Fields[2].Value:=Form2.Edit3.Text;
Table1.Fields[3].Value:=Form2.Edit4.Text;
Table1.Fields[4].Value:=Form2.Edit5.Text;
Table1.Fields[5].Value:=Form2.Edit6.Text;
Table1.Fields[6].Value:=Form2.Edit7.Text;
Table1.Post;
end
else
Table1.Cancel;
end
else
ShowMessage(‘不能修改’);
end;

Table1.Insert;

试了，插入时，当前是那行就冲掉哪行。

.....
table.close;
table.open;
...

a