Fórum Erro de conexão com idSMTP #414508

]Alguem pode me dar uma ajuda tenho o código abaixo hora funciona hora da o erro Conection Close gracefully n estou conseguindo resolver. segue codigo.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if EstaVivo(172.16.0.104) then
begin
Label2.Caption := Vivo;
end
else
begin
IdSMTP.Disconnect;
Label2.Caption := Morto;
IdMessage1.Recipients.EMailAddresses := meuemail@gmail.com;
//IdMessage1.CCList.EMailAddresses := meuemail2@gmail.com;
IdMessage1.BccList.EMailAddresses := ;
IdMessage1.Subject := Servidor do Portal Fora;
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage1);
finally
IdSMTP.Disconnect;
end;