delphi秒数相加

{秒数相加}

FormatDateTime('HH:MM:SS',StrToTime(Label1.Caption)+StrToTime('00:00:01'));

使用例子

{1小时同步一次时间}
procedure TForm3.Timer1Timer(Sender: TObject);
begin
  Tag := Tag + 1;{记录秒数}
  if Tag = 3600 then｛1小时｝
  begin
    Tag := 0;｛归零｝
    Form3.Caption := FormatDateTime('hh:mm:ss', now); { 同步本地时间信息 }
  end;
  Form3.Caption := FormatDateTime('hh:mm:ss', StrToTime(Form3.Caption) + StrToTime('00:00:01'));{秒数加1秒}
end;