procedure TForm1.Button1Click(Sender: TObject);
var
   Ts,Tf,TFHour,TFMinute,TFSecond: TTime;
   SHour,SMinute,SSecond: String;
   FHour,FMinute,FSecond: String;
   IntSHour,IntSMinute,IntSSecond: Integer;
begin
   try
   Ts := Now;
   SHour   := FormatDateTime('hh',Ts);
   SMinute := FormatDateTime('nn',Ts);
   SSecond := FormatDateTime('ss',Ts);
   dtpStart1.Time := StrToTime(SHour+':'+SMinute+':'+SSecond);
   Edit1.Text := SHour;
   Edit2.Text := SMinute;
   Edit3.Text := SSecond;
   IntSHour   := StrToInt(SHour);
   IntSMinute := StrToInt(SMinute);
   IntSSecond := StrToInt(SSecond);
   Edit4.Text := IntToStr(IntSHour-IntSHour);
   Edit5.Text := IntToStr(IntSMinute-IntSMinute);
   Edit6.Text := IntToStr(IntSSecond-IntSSecond);
   FHour   := Edit1.Text;
   FMinute := Edit5.Text;
   FSecond := Edit6.Text;
   Tf := StrToTime(FHour+':'+FMinute+':'+FSecond);
   TFHour   := IncHour(Tf,+SpinEditHour.Value);
   TFMinute := IncMinute(Tf,+SpinEditMinute.Value);
   TFSecond := IncSecond(Tf,+SpinEditSecond.Value);
   Edit7.Text := TimeToStr(TFHour);
   Edit8.Text := TimeToStr(TFMinute);
   Edit9.Text := TimeToStr(TFSecond);
   dtpFinish1.Time := TFHour+TFMinute+TFSecond+(0/(24*60*60));  // Вот ТУТ..!!!!!!!!!!
   except
   MessageDlg('Ошибка..!!!',mtError,[mbOk],0);
   end;
end;

 dtpFinish1.Time := TFHour+TFMinute+TFSecond+(0/(24*60*60));  // Вот ТУТ..!!!!!!!!!!