Вставка даты в несколько DBDateTimeEditEh одновременно!?

[John_chek]

Здрувствуйте!
У меня на форме 3 DBDateTimeEditEh. Как сделать, чтобы при выборе даты в DBDateTimeEditEh1, в другие две тоже подставлялась эта дата?

 
procedure TFLate.DBDateSCloseUp(Sender: TObject; Accept: Boolean);
begin
  DBDateDo.Value := DBDateS.Value;
end;

- Так работает, но мне нужно чтобы время не менялось!

[John_chek]

Ну вот! сам сделал, все впринципе просто:

 
procedure TFLate.DBDateSCloseUp(Sender: TObject; Accept: Boolean);
begin
    DBDateDo.Value := DBDateS.Value+StrToTime('23:59:59');
    DBTimeOp.Value := DBDateS.Value+StrToTime('08:45:00');
end;

[mihali4]

мне нужно чтобы время не менялось

Если так, то не понял вот этого:

DBDateDo.Value := DBDateS.Value+StrToTime('23:59:59') ;
DBTimeOp.Value := DBDateS.Value+StrToTime('08:45:00') ;

[John_chek]

Дата подставляется вот эта - DBDateS, а время должно быть то, которое я определяю, но пользователь если захочет может вручную его изменить.