Intervalo de datas

Fiz uma pesquisa de datas com os campos data e indice, e o erro é que cadastro o indice todo dia 10, quando coloca a data final com dia 01/02/03, como o índice de fevereiro não foi cadastrado dá erro, então queria pegar a última data cadastrada (10/12/02), fiz assim:

procedure TFrmInscricao.Button4Click(Sender: TObject);
begin
TblInscricao.Edit;
vCorrecao2 := 0;
sjuro := 0;
QryTaxa.close;
QryTaxa.sql.clear;
QryTaxa.sql.add(´select * from taxa Where mes between :mesinicio and :mesfinal´);
QryTaxa.parambyname(´mesinicio´).AsDate :=tblinscricaodatainicio.AsDateTime;
QryTaxa.parambyname(´mesfinal´).AsDate :=tblinscricaodatatermino.AsDateTime;
QryTaxa.next;
if not QryTaxa.Eof then
repeat
vCorrecao2 :=QryTaxaAtualizacao.Value;
sjuro :=sjuro+QryTaxatotal.Value;
QryTaxa.Next;
until QryTaxa.Eof;
TblInscricaoInd2.Value := vCorrecao2;
DBEdit12.Text := FloatToStr(vCorrecao2);
tblinscricaovjuros.Value :=tblinscricaovalorprincipal.Value*sjuro/100;
dbedit11.Text :=floattostr(sjuro);
QryTaxa.Open;
begin TblInscricaoAtualizacao.Value:=TblInscricaoValorPrincipal.Value/TblInscricaoInd1.Value*TblInscricaoInd2.Value/1000;
TblInscricaovCorrecao.Value:= TblInscricaoValorMulta.Value/TblInscricaoInd1.Value*TblInscricaoInd2.Value-TblInscricaoValorMulta.Value; TblInscricaoTotalDebito.Value:=TblInscricaoValorPrincipal.Value+TblInscricaoVmulta.Value+TblInscricaoVjuros.Value+TblInscricaoVcorrecao.Value;
end;
end;