Sorry, aber dein Quellcode im Anhang überschneidet sich nicht mit dem im Post. du hast aber wieder das gleiche Problem. Bei dieser Zeile:
NewAddress.Address := trim(listbox1.Items[i]);
Überleg mal, was für einen Wert i hat
Ausserdem willst Du ja alle Adresse aus deiner Listbox1 in die Recipients Liste legen... Kombinier doch mal ein bischen
Weisst Du überhaupt was Du tust in deinem Code, oder sind das einfach nur ein paar zusammenwürfelte Codeschnippsel ?