Wysyłanie maila (pytanie)

Witam. Mam problem. Mam sobie memo1, w którym każda linijka ma ścieżkę do pliku.
Co zrobić aby zapętlić wysyłanie maila tak, aby za każdym razem wysyłany był kolejny załącznik?

Do wysyłania maila używam tego kodu:

IdMessage1.Body.Append('TREŚĆ MAILA');
IdMessage1.Recipients.EMailAddresses := '[email protected]';
IdMessage1.Subject := 'TEMAT';
idSMTP1.Password := 'HASŁO DO KONTA';
idSMTP1.Username := 'NAZWA UŻYTKOWNIKA';
idSMTP1.Host := 'HOST DO POŁĄCZENIA';
TIdAttachment.Create(IdMessage1.MessageParts, 'SCIEŻKA DO PLIKU KTÓRY MA BYĆ W ZAŁĄCZNIKU');
IdSMTP1.Connect;
try
  IdSMTP1.Send(IdMessage1);
finally
  IdSMTP1.Disconnect;
end;

var
I : Integer;
begin
try
IdMessage1.Body.Append('TRESC DANEGO MAILA');
IdMessage1.From.Name := '[email protected]';
IdMessage1.Recipients.EMailAddresses := 'ODBIORCA@MAILA';
IdMessage1.Subject := 'TEMAT';
idSMTP1.Password := 'HASŁO DO SERVERA SMTP';
idSMTP1.Username := 'NAZWA UZYTKOWNIKA DO SERVERA SMTP';
idSMTP1.Host := 'SERWER SMTP, np smtp.wp.pl';
idsmtp1.AuthenticationType:=atLogin;   //autoryzacja

for I := 0 to memo1.Lines.Count do
begin
if Memo1.Lines[I] <> '' then
begin
TIdAttachment.Create(IdMessage1.MessageParts, Memo1.Lines[I]);
end;
end;
   IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
except
MessageBox(Handle, 'Błąd podczas wysylania maila', 'Błąd', MB_OK or MB_ICONERROR);
 end;
end;

Pisane prosto, bez sprawdzania. To mniej wiecej tak wyglądać powinno

Dzięki. Zaraz sprawdze.