Без того beginа если его удалит будет вылазить ошибка в

end;
IdSMTP1.Disconnect; в этом месте.

Если даже убрать его то ошибка остаётся

Так ошибка не в слипе а в синтаксесе но где..там с ендами замудрил что то)