var t1, t2: TDateTime; begin t1:=StrToDateTime('08.10.2015 23:59'); t2:=t1+3/(24*60); Edit1.Text:=DateTimeToStr(t1); Edit2.Text:=DateTimeToStr(t2); end;