espera q lo releo mas despacio, q vi todo el tocho de if else y no lei mas xDDDDDDDDDDDDDD
edit: pos si hay q liarla anidando y tal. mañana con mas ganas lo miro q seguro q se puede apurar un poco(asi a ojo :
#
ELSE IF (H>=0) AND (H<24) AND (M>=0) AND (M<59) AND (S=59) THEN begin M:=M+1; S:=0 end
#
ELSE IF (H>=0) AND (H<24) AND (M=59) AND (S=59) THEN begin M:=0; S:=0 end
#
ELSE IF (H>=0) AND (H<24) AND (M>=0) AND (M<60) AND (S>=0) AND (S<59) THEN S:=S+1
#
ELSE IF (H>=0) AND (H<24) AND (M>=0) AND (M<60) AND (S=59) THEN S:=0;
los puedes meter en un solo if con h>=0 y h<24, luego distinguir los casos q m<59 y m=59 (no se van a dar otros) y luego ya s=59 y s<59, seguro q algun caso se puede ahorrar y probablemente el tocho q acabo de poner tenga algun sinsentido, pero si rebuscas nuevas opciones te va a venir bastante bien #1. mañana con mas calma, lo dicho, nas noches
edit2: es bueno mirar los posts antes de postear, veo q ya lo has puesto tu, xDD