[ApxaHGe1]

Люди подскажите пожалуйста, делаю импорт из грида в аксес таким бразом

Код:

var
i,n:integer;
begin
Form1.ADOConnection1.Connected:=True;
for i:=1 to StringGrid1.RowCount-1 do
begin
ADODataSet1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(paramstr(0))+'DataSet\'+ComboBox1.Text+';Persist Security Info=False';
ADODataSet1.CommandText:='SELECT * From '+ComboBox2.Text;
ADODataSet1.Active:=True;
ADOQuery1.Active:=True;
ADOQuery1.Insert;
for n:=0 to 12 do
ADOQuery1.Fields[n].AsString:=StringGrid1.Cells[n,i];
ADOQuery1.Post;
end;

получается база вида

Код:

2015-07-02	3256.0	3275.0	3229.0	3267.0	13.0	3253.0	1982.0	30398.0	50.0	
2015-07-01	3226.0	3265.0	3229.0	3267.0	13.0	3253.0	1982.0	30398.0	50.0	
2015-06-30	3226.0	3275.0	3229.0	3667.0	13.0	3253.0	1982.0	30398.0	50.0		
2015-07-02	3256.0	3275.0	5229.0	3267.0	13.0	3253.0	1982.0	30398.0	50.0	

Цветом выделены 2 поля, в них одинаковые даты, все остальные значения могут быть разные, как удалить все такие поля, где попадаются одинаковые даты?