Перенести из 1 таблицы в 2 (access) с помощью делфи

[ReGeNt]

Здравствуйте. Мне нужно, чтобы в Delphi при открытие формы с помощью компонентов adotable переносилось 1 поле "шифр" из 1 таблицы в другую, но чтобы во 2 таблице не было повторяющихся чисел (поле числовое). У меня получилось просто перенести, но при попытке перенести без повторений случались разные ошибки.
Вот мой код:

var k:integer;
begin
k:=adotable2.FieldByName('Шифр').AsInteger;
adotable1.Append;
adotable1.FieldValues['Шифр']:=k;
while not adotable2.Eof do begin
if (adotable2.FieldValues['Шифр']<>k) then begin
adotable1.FieldValues['Шифр']:=adotable2.FieldByName('Шифр').AsInteger;
adotable1.Append;
adotable1.Post; end;
adotable2.Next;
k:=adotable2.FieldByName('Шифр').AsInteger;
end;

[Stilet]

А ты не хочешь это сделать SQL запросом?