날씨가 또 추워졌네요. 다들 건강하세요.

DBGrid의 선택된 값을 다른 DBGrid에 옮기는 작업을 하는데요
옮기기는 하는데,
한 레코드씩 옮기는데  처음에는 빠르다가 점점 속도가 느려져요....
왜 이런가요? 어떻게 해결해야 될까요?

작업을 다시한번 자세히 설명드리면 DBGrid가 2개 있고요 각각은 Query1과 Query2로 연결되어 있습니다. DBGrid1에서 선택된 레코드를 DBGrid2에 추가하는 작업입니다.

제가 사용한 루틴
procedure MoveDBGrid1toDBGrid2;
var i:integer;
begin
  Query1.DisableControls;
  Query2.DisableControls;

  with DBGrid_1.SelectedRows do begin
     for i:=0 to Count -1 do begin
         Query1.BookMark := Items[i];
         Query2.Append;
         Query2.('level2').AsString :=Query1.FieldByName('level2').AsString;
         Query1.Delete;
     end;
  end;

  Query1.EnableControls;
  Query2.EnableControls;

end;

삭제한 Query1 내용을 실제 Table에 ApplyUpdates하지는 않습니다.

고수님 도와주세요.