[cloayza]

Estimado colega para eso utilice la siguiente función

Código Delphi [-]
uses System.DateUtils;
{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
     if TCheckbox(Sender).Checked then
        edit1.text:= DateToISO8601(Now(), TCheckbox(Sender).Checked)
     else
         edit1.text:= DatetoStr(Now());

end;

Saludos cordiales