[lmikle]

Ну да, а чего ты хотела???
Здесь:

Код:

MessageDlg('Истечение срока гарантии через:   ' + IntToStr(s), mtInformation, [mbOK], 0);