че за хрень с goto. хватит курить когда пишите программу.
чистить надо объект который посылает и задержку ставить или ждать ответа от сервера о завершении отправки

goto - в объектно ориентированных языках не используется.

Для конструирования циклов используются:

While <условие выполнения> do <программный код>

либо:

repeat <программный код> until <условие завершения>

Не хочу разбираться что делает прога, код должен выглядеть примерно так:

while not idsmtp1.Connected do;
idsmtp1.Send(ms);
idsmtp1.Disconnect;
ShowMEssage('Сообщение отправлено!');

Если не отправится - будет зависание. Поэтому рекомендую изучить Триды (Tread), или сделать через таймер.