[Neftali [Germán.Estévez]]

Prueba a colocar esta línea al inicio de los eventos OnChangeClickD y OnChangeClicM.

Código Delphi [-]
    if (csLoading in Self.ComponentState) then begin
      Exit;
    end;
   ...