var
emails [0..1024] of string;
i:cardinal;
.......

begin
.....

for i:=0 to length(emails) do 
begin
 Idsmtp1.Host:=Edit5.text; 
idsmtp1.Port:=25; 
idsmtp1.Username:=edit6.text; 
idsmtp1.Password:=edit7.text; 
IdMessage1.From.Address := emails[i]; 
IdMessage1.Recipients.Add.Address := edit4.text; 
IdMessage1.Subject := edit3.text; 
idmessage1.Body.Text:=memo3.text; 
idsmtp1.Connect; 
idsmtp1.Send(idmessage1); 
memo1.lines.add('Отправленно ==>' + emails[i]); 
idsmtp1.Disconnect(); 
end;