Нашел. Просьба снимается.

Помогите пожалуйста разобраться со следующей проблемой :
Работаю с двумя таблицами Table1 и Table2, связываюсь при помощи полей Field1 и Field2.
Query1.Close;
Queri1.SQL.Clear; // Получаю содержимое Table1, понимаю что можно было Query1.SQL.Add('select * from Table1');// работать непосредственно с Table,но
Query1.Open;//сказали что с Query работает быстрее
if Query1.RecordCount>0 then
begin
Query1.First;
while not (Query1.Eof) do
begin
Query2.Close; // **
Query2.ParamByName('kod1').AsString:=Query1.FieldByName('Fied1').AsString;
Query2.ParamByName('kod2').AsString:=Query1.FieldByName('Fied2').AsString;
Query2.Open;
case Query2.RecordCount of
0: ShowMessage('Запись отсутсвует');
1: begin
UpdQuery.Close;
UpdQuery.ParamByName('New_Kod'):=Query2.FieldByName('Fied1').AsString;
UpdQuery.ExecSQL;
end;
2..10:
begin
Query2.First;
UpdQuery.Close;//обновляет поле Field1
UpdQuery.ParamByName('New_Kod'):=Query2.FieldByName('Fied1').AsString;
UpdQuery.ExecSQL;
repeat
Query2.Next;
InsQuery.Close;//Добавляет в Table1 записи с Table2.Field1 и Table2.Field2
InsQuery.ParamByName('Field1').AsString=Query2.FieldByName ('Fied1').AsString;
InsQuery.ParamByName('Field2').AsString=Query2.FieldByName ('Fied2').AsString;
InsQuery.ExecSQL;
until Query2.Eof;
end;
end;
end;

Понимаю, что мой перебор записей таблицы выглядит ... плохо, поэтому помогите реализовать этот код более оптимально
//** Query2 - запрос : Select Table2.* from Table2 where Table2.Field1=:Field1 and Table2.Field2=:Field2;