DateTimePicker

попробуйте так

procedure NovayaForma_dtpData_vipiski_OnChange (Sender: string);
begin
   NovayaForma.edDni_prebivaniya.Value:= DaysBetween(NovayaForma.dtpData_vipiski.DateTime,NovayaForma.dtpData_gospitalizatsii.DateTime);
   if NovayaForma.dtpData_vipiski.DateTime < NovayaForma.dtpData_gospitalizatsii.DateTime then NovayaForma.edDni_prebivaniya.Value := NovayaForma.edDni_prebivaniya.Value * -1;
end;

procedure NovayaForma_dtpData_gospitalizatsii_OnChange (Sender: string);
begin
   NovayaForma.edDni_prebivaniya.Value:= DaysBetween(NovayaForma.dtpData_vipiski.DateTime,NovayaForma.dtpData_gospitalizatsii.DateTime);
   if NovayaForma.dtpData_vipiski.DateTime < NovayaForma.dtpData_gospitalizatsii.DateTime then NovayaForma.edDni_prebivaniya.Value := NovayaForma.edDni_prebivaniya.Value * -1;
end;

На форме имеется DateTimePicker (dtpData_vipiski). При ставке галочки на него я ввожу дату скажем вчерашнюю или завтрашнюю. Теперь при снятии галочки с него dtpData_vipiski становится не активным но дата остается таким каким я изменил его. Надо чтобы если снять галочку с него то его дата автоматом переключалась на сегодняшний день. Вот мой скрипт:

procedure NovayaForma_dtpData_vipiski_OnChange (Sender: string);
begin
if NovayaForma.dtpData_vipiski.Checked then
begin
    .....
end else
    begin
    NovayaForma.dtpData_vipiski.DateTime.Default:= Format(now);
    end;
end;

Увы не получается, помогите с реализацией.

Обратите внимание на следующее

procedure NovayaForma_dtpData_vipiski_OnChange (Sender: string);
begin
   if NovayaForma.dtpData_vipiski.Checked then
   begin
    .....
   end else
   begin
      NovayaForma.dtpData_vipiski.DateTime := now;
      NovayaForma.dtpData_vipiski.Checked := False;
    end;
end;

и это:

procedure NovayaForma_dtpData_vipiski_OnChange (Sender: string);
begin
   if NovayaForma.dtpData_vipiski.Checked = True then
   begin
    .....
   end else
   begin
      NovayaForma.dtpData_vipiski.DateTime := now;
      NovayaForma.dtpData_vipiski.Checked := False;
    end;
end;

Чем они отличаются?
1. if NovayaForma.dtpData_vipiski.Checked = True then
2. if NovayaForma.dtpData_vipiski.Checked then

В обеих случаях вроде скрипт работает без проблем.