1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.foo();
var sec, min, hou, day: Int64; 
begin
  sec := SecondsBetween(Datum1, Datum2);
  min := sec div 60;
  hou := min div 60;
  day := hou div 24;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button7Click(Sender: TObject);
var x,z : TDateTimePicker;
begin
  x := TDateTimePicker.Create(self);
  z := TDateTimePicker.Create(self);
  x.Time := time;
  sleep(1000);
  z.Time := time;
  x.Time := z.Time - x.Time;
  ShowMessage(TimeToStr(x.Time));
  x.Free;
  z.Free;
end;