Долгая прорисовка DBGridEh

[Dozent]

Доброго времени суток.
Есть 3 MemTableEh. Один изсточник даных два други приёмники с фильтрами в первый закидываются если поле Field_order <1
Во второй закидывается если поле >0

Сам переброс осуществил, проблема в том что если выбрать переброс всех строк то это проиходит очень не красиво, грид мегает да и подвисает немного...

Подскажите плз, что можно с этим сделать, код прилагаю

procedure TfrmSrvcViewCard.AllRightClick(Sender: TObject);
var
  i: integer;
begin
  inherited;
  mtLeft.First;
  while not(mtLeft.Eof) do begin
    iRecNumber := mtJournalFields.FindRec('FIELD_CODE', mtLeft.FieldByName('FIELD_CODE').AsString, [], 1);
    if iRecNumber >= 0 then begin
      mtJournalFields.Edit;
      mtJournalFields.RecordsView.Rec[iRecNumber].DataValues['FIELD_ORDER', dvvValueEh] := mtRight.RecordCount + 1;
      mtJournalFields.Post;
      mtRight.Active := false;
      mtRight.Active := true;
    end;
    mtLeft.Next;
  end;
  mtLeft.Active := false;
  mtLeft.Active := true;
  // mtRight.Active := false;
  // mtRight.Active := true;
end;