★★★征集封装数据集操作的类源码！★★★

Question

格式如下形式，要求封装了基本的数据插入、删除、查询、修改等基本操作，请附上完整的源代码，收到即给分，不够可以再加！
Email:
[email protected]
[email protected] = class
private
  FDataSet: TADODataSet;
  FTableName: string;
  ...
protected
  procedure SetTableName(AName: string);
  procedure SetDataSet(ADataSet: TADODataSet);
  ...
public
  procedure Append;
  procedure Delete(AIndex: Integer);
  procedure QueryRecords(ASql: string);
  procedure Modify;
  ...
published
  property ADODataSet: TADODataSet read FDataSet write SetDataSet;
  property TableName: string read FTableName write SetTableName;
  ...
end;