Fórum De Novo, Ajuda com uma rotina verificar campos de uma tabela #424530

procedure TFormCaixa.BitBtn1Click(Sender: TObject);
Var
sSQLTipo : String;
iValorInicial : Integer;
begin
if final.Date < inicial.Date then
begin
Showmessage ('Data Final não Pode Ser Menor que a Data Inicial !');
inicial.SetFocus;
Exit;
end;
sSQLTipo := 'Pago';
if RadioGroup1.ItemIndex = 1 then
sSQLTipo := 'NPago';
Edit1.Clear;
Dados.QueryMensalidade.Close;
Dados.QueryMensalidade.SQL.Text := 'SELECT * ' +
' FROM Mensalidade ' +
' WHERE (mensalidadepaga = :mensalidadepaga) ' +
' AND (dataate >= :datainicial) ' +
' AND (dataate <= :datafinal)';

Dados.QueryMensalidade.ParamByName('mensalidadepaga').AsString := sSQLTipo;
Dados.QueryMensalidade.ParamByName('datainicial').AsDate := inicial.Date;
Dados.QueryMensalidade.ParamByName('datafinal').AsDate := final.Date;
Dados.QueryMensalidade.Open;
if Dados.QueryMensalidade.IsEmpty then
begin
Showmessage ('Não Existe Dados no Período Solicitado !');
Inicial.SetFocus;
Exit;
end;
iValorInicial := 0;
Dados.QueryMensalidade.First;
while not Dados.QueryMensalidade.Eof do
begin
iValorInicial := iValorInicial + Dados.QueryMensalidadeValorInicial.AsInteger;
Dados.QueryMensalidade.Next;
end;
Edit1.Text := FormatFloat('#,##0.00',iValorInicial);

end;