利用DAO创建access数据库时，需要给字段创建一个标题属性，运行时报错。

procedure TForm1.Button2Click(Sender: TObject);
var
  Engine:DAO97.DBEngine;
  TestDB:DAO97.Database;
  TestTD:DAO97.TableDef;
  TestField:DAO97.Field;
  TestProperty:DAO97.Property_;
begin
  name:=Edit1.text;
  Engine:=DAO97.CoDBEngine.Create();
  TestDB:=Engine.CreateDatabase('test',';LANGID=0X0804;CP=936;COUNTRY=0;',dbVersion30);
  TestTD:=TestDB.CreateTableDef('Table1',0,'','');
  TestField:=TestTD.CreateField('Field1',dbText,16);
  TestProperty:=TestField.CreateProperty('Caption',dbText,'111',false);  TestField.Properties.Append(TestProperty); //就是这句代码运行报错，在网上看到vb类似的例子就是这么调用的，为什么delphi报错。  TestTD.Fields.Append(TestField);
  TestDB.TableDefs.Append(TestTD);
  TestDB.Close;
end;