Структура типа "Время" - Часы, минуты, секунды

type
  TTime = record
    h, m, s: ShortInt;
  end;
 
function AddSec(var t: TTime): Boolean;
begin with t do begin
    Inc(s);
    Inc(m,s div 60); s:=s mod 60;
    Inc(h,m div 60); m:=m mod 60;
    AddSec:=h div 24>0; h:=h mod 24;
end; end;

function AddSec(var t: TTime): Boolean;
var z: Longint;
begin with t do begin
  z:=h*24+m*60+s+1;
  s:=z mod 60; z:=z div 60;
  m:=z mod 60; z:=z div 60;
  h:=z mod 24; AddSec:=z div 24>0;
end; end;

function AddSec(var t: TTime): Boolean;
begin with t do begin
    AddSec:=False;
    Inc(s);
    if s>=60 then begin
      Inc(m,s div 60); s:=s mod 60;
      if m>=60 then begin
        Inc(h,m div 60); m:=m mod 60;
        if h>=24 then begin
          AddSec:=True; h:=h mod 24;
        end;
      end;
    end;
end; end;

function AddSec(var t: TTime): Boolean;
begin with t do begin
    AddSec:=False;
    Inc(s);
    if s<60 then Exit;
    Inc(m,s div 60); s:=s mod 60;
    if m<60 then Exit;
    Inc(h,m div 60); m:=m mod 60;
    if h<24 then Exit;
    AddSec:=True; h:=h mod 24;
end; end;

function AddSec(var t: TTime): Boolean;
begin with t do begin
    AddSec:=False;
    Inc(s);
    if s>=60 then begin
      Inc(m); s:=0;
      if m>=60 then begin
        Inc(h); m:=0;
        if h>=24 then begin
          AddSec:=True; h:=0;
        end;
      end;
    end;
end; end;

function AddSec(var t: TTime): Boolean;
begin with t do begin
    AddSec:=False;
    Inc(s);
    if s<60 then Exit;
    Inc(m); s:=0;
    if m<60 then Exit;
    Inc(h); m:=0;
    if h<24 then Exit;
    AddSec:=True; h:=0;
end; end;