А на кой разделять Дату и Время, что-бы потом думать как собрать? Не ищем легких путей? Тогда наверное так:
Код:
Var
DeltaTime: TDateTime;
begin
DeltaTime := Now - StrToDateTime(DateToStr(DateTimePicker1.Date) +' '+ Edit1.Text);
end;
lmikle: Страдалецъ, накажу ведь!!! Уж тебе положено знать правила на форуме!!!
PS: Свойства DateTimePicker1.Format := 'dd.mm.yyyy hh:mm:ss', DateTimePicker1.Kind := dtkTime, DateTimePicker1.DateTime возможно несколько облегчат жизнь.