Так с этого и надо было начинать! Не с "напишите пожалуйста всю программу по скрину" а с "как по списку отправить почту".
По списку несложно - в списке есть запятые или пробелы (вообщем какие-то разделители адресов).
Запускаешь цикл. Пока строка не пустая делать
Код:
s:=Edit1.text;
while s<>'' do
begin
k:=pos(',',s); // тут разделитель на месте ','
if k=0 then k:=length(s)+1;
s1:=copy(s,1,k-1);
if k>length(s) then k:=length(s);
delete(s,1,k);
// И далее код отправки почты. Адресат находится в S1
end;
Вот и все. 10 строк написать могут. Просто сразу спрашивай то, что нужно.