Div - Выполняет целочисленное деление без остатка (17 div 2 = 8)
Mod - Выполняет целочисленное деление, возвращая остаток (19 mod 4 = 3)

if sender = Button2 then
if S<10 then
begin
S2:='0'+IntToStr(S);
ost:= h*3600 + m*60 + s;
Timer.Enabled:=false;
form2.show;
timer1.enabled:=true;
form2.timer1.enabled:=true;

MessageDlg('Предупреждение', mtCustom, mbOKCancel, 0);

mtWarning символ восклицания
mtError красный "Х"
mtInformation "i" в круге
mtConfirmation знак вопроса
mtCustom только сообщение

mbYesNoCancel
mbYesAllNoAllCancel
mbOKCancel
mbAbortRetryCancel
mbAbortIgnore

mrOK = 1
mrCancel = 2
mrAbort = 3
mrRetry = 4
mrIgnore = 5
mrYes = 6
mrNo = 7
mrAll = 8
mrNoToAll = 9
mrYesToAll = 10

buttonSelected := MessageDlg('Таймер!', mtCustom, mbOKCancel, 0);
PlaySound(0, 0, SND_PURGE);