Ajouter une seconde, minute ou heure à un TDateTime

procedure TForm1.Button1Click(Sender: TObject);
var
dTime: TDateTime;
begin
// Ajouter une seconde à dTime
//1sec = 1/(24h x 60 min x 60 sec)
dTime := now;
dTime := dTime + 1.0 / 86400;
ShowMessage('dans une seconde :' + DateTimeToStr(dTime));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
dTime: TDateTime;
begin
// Ajouter une minute à dTime
//1 min = 1/(24h x 60 min)
dTime := now;
dTime := dTime + 1.0 / 1440;
ShowMessage('dans une minute :' + DateTimeToStr(dTime));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
dTime: TDateTime;
begin
// Ajouter une heure à dTime
//1 heure = 1/24h
dTime := now;
dTime := dTime + 1.0 / 24;
ShowMessage('dans une heure :' + DateTimeToStr(dTime));
end;