如何在IdSMTP的单个连接中发送多封电子邮件？

var
  SMTP: TIdSMTP;
  Message: TIdMessage;
begin
  SMTP := TIdSMTP.Create(nil);
  Message := TIdMessage.Create(nil);
  
  try
    // 设置SMTP服务器的相关信息
    SMTP.Host := 'smtp.example.com';
    SMTP.Port := 25;
    SMTP.Username := 'your_username';
    SMTP.Password := 'your_password';
    
    // 设置邮件的相关信息
    Message.From.Address := 'sender@example.com';
    Message.Recipients.Add.Address := 'recipient1@example.com';
    Message.Recipients.Add.Address := 'recipient2@example.com';
    Message.Subject := 'Test Email';
    Message.Body.Text := 'This is a test email.';
    
    // 将邮件添加到SMTP组件的SendMsgs属性中
    SMTP.SendMsgs.Add(Message);
    
    // 建立与SMTP服务器的连接
    SMTP.Connect;
    
    // 发送邮件
    SMTP.Send;
    
    // 断开与SMTP服务器的连接
    SMTP.Disconnect;
  finally
    SMTP.Free;
    Message.Free;
  end;
end;