udah pernah dibahas...seacrh dulu?? {var jmawal,jmakhir,jmselisih:Tdatetime; ................ jmlselisih:=formatdatetime('hh:mm:ss',jmakhir)-formatdatetime('hh:mm:ss',jmawal);}

uses DateUtils;
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
  lSekarang: TDateTime;
begin
  lSekarang := Now;
  ShowMessage(
    'Sekarang : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', lSekarang)+#10#13+
    'Kurang 2 Hari : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncDay(lSekarang,-2))+#10#13+
    'Tambah 4 Hari : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncDay(lSekarang,4))+#10#13+
    'Tambah 3 Bulan : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncMonth(lSekarang,3))+#10#13+
    'Tambah 5 Jam : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncHour(lSekarang,5))+#10#13+
    'Kurang 10 Menit : '+FormatDateTime('dd-MM-yyyy hh:nn:ss', IncMinute(lSekarang, -10))
  );
end;