Delphi 手工创建TClientDataset 及动态添加数据后最后一条记录不显示的解决方法

procedure TForm1.Button6Click(Sender: TObject);
var
dsTemp:TClientDataSet;
begin
   dsTemp:=TClientDataSet.Create(nil);
 { 添加字段 }
  with dsTemp.FieldDefs.AddFieldDef do
  begin
    Name := 'ID';
    DataType := ftInteger;
  end;

  with dsTemp.FieldDefs.AddFieldDef do
  begin
    Name := 'Name';
    DataType := ftString;
    Size := 12; { ftString 类型的 Size 默认 20 }
  end;

  with dsTemp.FieldDefs.AddFieldDef do
  begin
    Name := 'Age';
    DataType := ftWord;
  end;

  with dsTemp.FieldDefs.AddFieldDef do
  begin
    Name := 'Sex';
    DataType := ftBoolean;
  end;

  { 构建数据集, 不可缺少的一步 }
  dsTemp.CreateDataSet;

  { 显示; 如果在设计时已挂接或不需要显示, 可省略下两行 }
  ds.DataSet := dstemp;

  { 添加数据 }
  dsTemp.AppendRecord([1, '张三', 33, True]);
  dsTemp.AppendRecord([2, '李四', 44, False]);
  dsTemp.AppendRecord([3, '王五', 55, True]);
  dsTemp.AppendRecord([4, '