移动到最后一条记录时再按一下“下”就会追加一条记录，如果去掉这项功能
    procedure TForm1.DataSource1Change(Sender: TObject; Field: TField);
    begin
      if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel;
    end;
 

（出处：www.delphibbs.com）