// -- Configuration Message try for i:=0 to sendto.items.count -1 do begin Source := VotreEditeurHtml.Source; //imessage.Clear; with TIdMessageBuilderHtml.Create do try Subject := Subject.Text; IMessage.From.Address := From.Text; IMessage.From.Name:= name.Text; IMessage.Recipients.Add.Address:=sendto.items[0]; if selecthtmlmsg.Checked=true then Html.Text := Source+pub else Html.Text := textmsg.Text; FillMessage(IMessage); finally .....; // -- Fin Configuration Message