mailbrush ну видимо не может выйти из цикла т.к. (r > 0) выполняется
stepashka_ ну просто вставить ShowMesssage('Твой текст') после Disconnect. если я правильно тебя понял
через время..положи на форму TTimer. Enabled задай в false. На обработчиr OnTimer посади
ShowMesssage('Твой текст')
А в коде процедуры добавь:
Timer1.Interval := //тут твое время в миллисекундах
Timer1.Enbled := True;