[angvelem]

Попробуй так:

Код:

  idsmtp1.Connect(500);
  try 
    if idsmtp1.Connected then
    try
      IdSMTP1.Send(IdMessage1); 
    except
      IdSMTP1.Disconnect(); 
    end;
  finally
    IdSMTP1.Disconnect(); 
  end;