{秒数相加}
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;