Fórum list index out of bounds(1) - Envio de email? #360311

procedure Tf_EnviarPed.Button2Click(Sender: TObject);
var
  LidSMTP: TIdSMTP;
  LIdMessage : TIdMessage;
  I : Integer;
begin
  LidSMTP   := TIdSMTP.Create(nil);
  while not (LidSMTP.Connected) do   // enquanto não conectar, o programa vai ficar tentando conectar infinitamente.
  begin
    try
      LidSMTP.Disconnect;
      LidSMTP.Host          := edtHost.Text;
      LidSMTP.Port          := 25;
      LidSMTP.Username      := edtUsuario.Text;
      LidSMTP.Password      := edtSenha.Text;

      LidSMTP.AuthenticationType   := atLogin;
      LidSMTP.Connect;
      if not LidSMTP.Connected then
        Exit;

      LIdMessage := TIdMessage.Create(nil);
      try
        LIdMessage.From.Text                   := emailDe.Text;
        LIdMessage.Recipients.EMailAddresses   := edtPara.Lines.Text;
        LIdMessage.MessageParts.Clear;
        {:Foi criado para enviar a mensagem que esta na descricao}
        LIdMessage.Body.Text := emailMensagem.Text;

        for I := 0 to emailanexo.Items.Count - 1 do
            TIdAttachment.Create(LIdMessage.MessageParts, TFileName(emailanexo.Items[I].Caption));
            LIdMessage.Subject       := edtAssunto.Text; //File_Name + ´ em ´ + FormatDateTime(´dd/mm/yyyy hh:mm´, Now);
            LIdMessage.Priority      := mpHighest;
            LidSMTP.Send(LIdMessage);
            MessageDlg(´E-Mail enviado com sucesso!´, mtInformation,[mbOk], 0);
        {:Estou verificando se retorna alguma mensagem de volta para meu e-mail}
        LIdMessage.Headers.Values[´Return-Receipt-To´] := ´adrianoservitec@uol.com.br´; //FSMTP_From;
        //LIdMessage.Headers.Add(´Disposition-Notification-To: "Fulano de Tal" <adrianoservitec>´);
        LIdMessage.SaveToFile(´c:\Logerros.txt´);
        {:Fim da modificação}
      finally
        LIdMessage.Free;
      end;
    except
      {Não conseguiu conectar, tenta conectar novamente em 1 minuto}
      Sleep(1000);
      Continue;
    end; // try
  end; // while
    LidSMTP.Disconnect;
    LidSMTP.Free;
end;

procedure TIdHeaderList.SetValue(const Name, Value: string);
var
  I: Integer;
begin
  I := IndexOfName(Name);
  if Value <> ´´ then    {Do not Localize}
  begin
    if I < 0 then
    begin
      I := Add( ´´ );    {Do not Localize}
    end; //if I < 0 then
    if FFoldLines then
    begin
      DeleteFoldedLines( I );
      FoldAndInsert( Name + FNameValueSeparator + Value, I );
    end
    else
    begin
      Put( I, Name + FNameValueSeparator + Value );
    end;  //else..FFoldLines
  end //if Value <then>= 0 then
    begin
      if FFoldLines then
      begin
        DeleteFoldedLines( I );
      end;
      Delete( I );
    end; //if I >= 0 then
  end;  //else .. if Value <> ´´ then    {Do not Localize}
end;