Problema na msgetdados

Bom dia pessoal

Estou desenvolvendo uma tela que puxa um modelo cadastrado previamente em outra rotina, a parte do carregamento funciona lindamente, porém meu problema aparece na seguinte situação:

Eu carreguei um modelo na tela tudo lindo, porém se eu resolver carregar outro modelo, a msgetdados ao invés de limpar as linhas que estão no acols para inserir as novas, o programa esta somente acrescentando, então fica as linhas do modelo anterior mais a do modelo atualmente carregado.

Tentei de várias formas limpar o grid antes de carregamento mais não obtive sucesso, alguém tem alguma ideia de como posso resolver isso?

Segue o fonte e um print para exemplificar o problema.

Atenciosamente