Из одной dbgrid в другой

[fobass]

Добрый день. Прошу помощи. Есть записи в dbgrid (adoConn., adoQuery)
year_
2000
2000
......
2001
2001
......
......
......
2015
2015

Нужно скопировать в другой грид(adoconn, adoq) в виде
year_
2000
2001
......
2015

набросал код

while not ADOQuery1.Eof do
begin
  year_1:=ADOQuery1.FieldValues['year_'];
  ADOQuery1.Next;
  year_2:=ADOQuery1.FieldValues['year_'];
 if year_1<>year_2 then
  begin
    ADOQuery2.Append;
    ADOQuery2.FieldByName('year_').AsInteger:=StrToInt(year_1);
    ADOQuery2.Post;
  end;
end;

код не копирует последний запись т.е 2015. это ясно.
как можно порешать?

без distinct

[fobass]

прошу прощения, вопрос исчерпан