[leonw]

сделал так

Код:

for i:=0 to Memo2.Lines.Count-1 do
ProgressBar1.max:=Memo2.Lines.Count-1;
IdMessage1.Recipients.EMailAddresses := Memo2.Lines.Strings[i]; 
ProgressBar1.Position:=Memo2.Lines.Count-1;

выдает ошибку?