Problemas al cerrar con boton

[The Cid James]

No nada de echo el unico evento que tengo el form principal es el formcreate con esto que no tiene nada que ver

Código Delphi [-]
begin
 DTPfecha.Date := now;
 fmodulo.qnumventa.Active := true;
 fmodulo.Qtotal.Active := true;
  if fmodulo.qnumventa.Fields.FieldByName('id_venta').IsNull
    or (not TryStrToInt(Endeventa.Text, numventa))
      then
        numventa := fmodulo.qnumventa.fields.FieldByName ('id_venta').AsInteger + 1;
        Endeventa.Text := IntToStr(numventa);
  if fmodulo.Qtotal.IsEmpty
    then
        Eventatotal.Text := '0'
  else
  fmodulo.Qtotal.ParamByName('idv').AsInteger := numventa;
  fmodulo.Qtotal.Open;
  fmodulo.Qtotal.Refresh;
  Eventatotal.Text := fmodulo.Qtotal.Fields.FieldByName('Total').AsString;
end;

En ningun momento toco la consulta de la fecha que es la que me esta generando problemas
Ademas cierro las consultas y demas una vez que se "paga" no tengo nada ahi mas que 3 botonos y ningun evento en el segundo form.
Con respecto a las componentes estoy usando zeos con dataset y consulta nada mas que se activan al abrir el primer form y como dije no se cierran hasta que se hace efectivo el pago. No deberia cerrarse nada si no se hace efectivo el pago

[The Cid James]

Al final lo termine haciendo con un checkboxlist dentro del mismo form porque no encontre el error gracias por la ayuda