一个时间连续显示问题，请各位关注！

Question

一个时间连续显示问题：
我想在桌面上放置六个点，用来显示连续的六个时间点，
如：第一个点是取当前时间：09：29
    第二个点是取当前时间的下一个分钟： 09：30
    第三个点是取                     09：31
    第四个点是取                     09：32
    第五个点是取                     09：33
    第六个点是取                     09：34
请问这种时间的控制显示如何实现？

Answer 1

第一个:time
第二个:time+1/(24*60)
第三个:time+2/(24*60)

Answer 2

formatdatetime('hh:nn',Now+StrToTime('00:01:00'));

Answer 3

procedure TForm1.Timer1Timer(Sender: TObject);
var time1:TDateTime;
begin
time1:=now;
label1.Caption := formatdatetime('hh:mm',time1);
label2.Caption := formatdatetime('hh:mm',time1+StrToTime('00:01:00'));
label3.Caption := formatdatetime('hh:mm',time1+StrToTime('00:02:00'));
label4.Caption := formatdatetime('hh:mm',time1+StrToTime('00:03:00'));
label5.Caption := formatdatetime('hh:mm',time1+StrToTime('00:04:00'));
label6.Caption := formatdatetime('hh:mm',time1+StrToTime('00:05:00'));end;