[Bargest]

Но по списку как сделать

Так с этого и надо было начинать! Не с "напишите пожалуйста всю программу по скрину" а с "как по списку отправить почту".

По списку несложно - в списке есть запятые или пробелы (вообщем какие-то разделители адресов).
Запускаешь цикл. Пока строка не пустая делать

Код:

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 строк написать могут. Просто сразу спрашивай то, что нужно.