Como limpar cache do CLientDataSet do Delphi?

Ola pessoal,
Estou usando um servidor firebird 2.5 com Delphi 10.2. Estou usando o seguinte Loop


procedure p_portico_inicial_esforcos_db;
begin
DMDados.cdsBDPortico_Inicial.First;
while not DMDados.cdsBDPortico_Inicial.Eof do
begin
if not (DMDados.cdsBDPInicial_Des.State = dsInsert) then
DMDados.cdsBDPInicial_Des.Insert;
DMDados.cdsBDPInicial_Des.Fields[0].AsInteger := DMDados.cdsBDPortico_Inicial.Fields[0].AsInteger;
DMDados.cdsBDPInicial_Des.Fields[1].AsInteger := DMDados.cdsBDPortico_Inicial.Fields[1].AsInteger;
try
DMDados.cdsBDPInicial_Des.ApplyUpdates(0);
except
MessageDlg('Não foi possível apagar tabelas',mtError,[mbOK],0);
abort
end;
DMDados.cdsBDPortico_Inicial.Next;
end;
end;

Antes de rodar essa procedure eu faço o mesmo loop em outra procedure. Acontece que quando uso o Loop pela segunda vez meu while percorre todos meus registros volta pro inicio percorre novamente os registro e só então finaliza. Aparentemente meu while esta percorrendo os dados na memoria cache do meu ClientDataSet.

Eu consegui resolver isso dando um CLose no data set e depois um Open. Tem um uma maneira mais eficiente de resolver esse problema?