Problema al enviar Email con adjuntos usando el componente Idsmtp de las indy

[[Nbull]]

Hola A tod@s, Tengo un problemilla con mi programa, este modulo envia e-mail con el IdMessage y el IdSmtp de las indy los envio sin ningún problema pero cuando le paso la ruta de varios archivos a traves de un Memo no me envia ningun adjunto.El codigo que tengo es este:

Código Delphi [-]
 // Adjuntos. Se pueden indicar varios ( TStringList ) ...
      if ( trim( txtAdjunto.Text ) <> '') then begin
         if(MemoAdjunto.Visible=true) then
         begin
              TIdAttachment.Create(Mensaje.MessageParts,MemoAdjunto.Lines.text );
              Memo.lines.Add( 'Archivos Adjuntos :');
              Memo.lines.AddStrings( MemoAdjunto.Lines  );
         end
         else
         begin
              TIdAttachment.Create(Mensaje.MessageParts,txtAdjunto.Text );
              Memo.lines.add( 'Archivo Adjunto : ' + trim( txtAdjunto.text ) );
         end;
      end;

A ver si alguien me puede echar una mano por que el jefe me esta metiendo presión con este módulo, y con el del memo del access que he puesto en un hilo del foro SQL.Gracias por vuestra generosidad y colaboración.