谁能提供我一个Delphi操作MSACCESS数据库的例子，包括新建，添加，删除表格及记录之类的操作

新建表：
  mmStrc := '
    create table TableName
0A    (
       FieldName1 integer,
0A       FieldName2 Text(10), 0D
       FieldName3 datetime,
    );'  
  ADOCommand1->CommandText = mmStrc;
  ADOCommand1->Execute(); 
0A
添加纪录
ADOTable1.Append;
.........
ADOTable1.Post;删除当前纪录：
ADOTable1.Delete;删除全部纪录：
ADOTable1.EmptyTable;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————