Fórum Maskedit recebe somente valores selecionados pelo checkbox? #336662

procedure TForm3.btnCarregarClick(Sender: TObject);
var
  i, n: SmallInt;
begin
  N := ComponentCount;
  for I := 0 to N-1 do
  begin

    if (Components[I] is TEdit) then
      if ((Components[I] as TEdit).Tag > 0) and ((Components[I] as TEdit).Tag < 37) then
      begin
        if (FindComponent(´checkbox´+inttostr((Components[I] as TEdit).Tag and (components[i] as TMaskedit).Tag)) As tCheckBox).Checked then
        (Components[I] as TEdit).Text := edtValorPadrao.Text;

      Case (Components[I] as TMaskEdit).Tag of
          13: ijan.text     :=string( ´01/01/´+edtAno.Text );
          14: ifev.text     :=string( ´01/02/´+edtAno.Text );
          15: imar.text     :=string( ´01/03/´+edtAno.Text );
          16: iabr.text     :=string( ´01/04/´+edtAno.Text );
          17: imai.text     :=string( ´01/05/´+edtAno.Text );
          18: ijun.text     :=string( ´01/06/´+edtAno.Text );
          19: ijul.text     :=string( ´01/07/´+edtAno.Text );
          20: iago.text     :=string( ´01/08/´+edtAno.Text );
          21: iset.text     :=string( ´01/09/´+edtAno.Text );
          22: iout.text     :=string( ´01/10/´+edtAno.Text );
          23: inov.text     :=string( ´01/11/´+edtAno.Text );
          24: idez.text     :=string( ´01/12/´+edtAno.Text );
      end;
      
     Case (Components[I] as TEdit).Tag of
          25: fjan.text     :=string( ´31/01/´+edtAno.Text );
          26: ffev.text     :=string( ´28/02/´+edtAno.Text );
          27: fmar.text     :=string( ´31/03/´+edtAno.Text );
          28: fabr.text     :=string( ´30/04/´+edtAno.Text );
          29: fmai.text     :=string( ´31/05/´+edtAno.Text );
          30: fjun.text     :=string( ´30/06/´+edtAno.Text );
          31: fjul.text     :=string( ´31/07/´+edtAno.Text );
          32: fago.text     :=string( ´31/08/´+edtAno.Text );
          33: fset.text     :=string( ´30/09/´+edtAno.Text );
          34: fout.text     :=string( ´31/10/´+edtAno.Text );
          35: fnov.text     :=string( ´30/11/´+edtAno.Text );
          36: fdez.text     :=string( ´31/12/´+edtAno.Text );
      end;
    end;  
  end;
end;

if checkbox1.checked = true then
begin
    ijan.text     :=string( ´01/01/´+edtAno.Text ); 
    fjan.text     :=string( ´31/01/´+edtAno.Text ); 
end;
if checkbox2.checked = true then
begin
    ifev.text     :=string( ´01/01/´+edtAno.Text ); 
    ffev.text     :=string( ´28/02/´+edtAno.Text ); 
end;

...
...