Mailversand mit Indy geht nur einmal

[s.h.a.r.k]

Das pBody.Clear; brauchst gar nicht aufrufen, da du ja die Liste direkt davor erzeugst. Und neu erzeugte Listen sind von Haus aus leer.

Du solltest auch den Fehler selbst abfangen und dir ausgeben lassen. Würdest du das tun, würdest du sehen, warum es wohl kein zweites Mal klappt.

Delphi-Quellcode:

try
  // ...
except on Ex : Exception do
  ShowMessage(Ex.Message);
end;