delphi问题

写两个公共函数cOpenStrsql(strsql :string;Dataset:TAdoQuery),
cExecStrsql(strsql :string;Dataset:TAdoQuery)分别用来执行查询和插入删除更新操作。请新建一个表table1（该表必须含有字符型，数值型，bool型，日期型字段）
要求：1、利用数据集的方式（不用insert语句插入数据）添加记录，保存记录，删除记录
　　　2、按照某一字段过滤数据集
　　　3、循环数据集删除重复数据