Fórum Estou com problemas no uso com o while #197848

Estou utilizando a seguinte sintaxe para lançar os dados resultantes de uma filtragem para uma tabela.
dm1.QHistoricoG.First;
while not dm1.QHistoricoG.eof do begin;
dm1.TBCredSem.Insert;
dm1.QHistoricoGcodalu.asstring;
dm1.TBCredSemCodCur.asstring := dm1.QHistoricoGCodCur.asstring;
dm1.TBCredSemdisciplina.Value := dm1.QHistoricoGnome.asstring;
dm1.TBCredSemperiodo.AsString := dm1.QHistoricoGperiodo_grade.asstring;
dm1.QHistoricoGSituaAlu.AsString;
dm1.TBCredSemCs.AsString
dm1.QHistoricoG.Next;
end;

O que ocorre, todos os registros são gravados na tabela normalmente, com excessão do último registro que não é lançado, o que está acontecendo por que o último registro não é lançado, como faço para que ele seja lançado também ?