IdSMTP sendet nicht und IdMessage wird nicht gespeichert.

[Sir Rufo]

Wie wäre es, wenn du mal etwas strukturierter vorgehen würdest?

1. Quelltext ordentlich formatieren, damit man die zusammengehörigen Blöcke auch erkennen kann
2. Überflüssige Parameter aus den Proceduren entfernen
3. DRY!!! Du baust die IdMessage 2 mal zusammen, irgendwie doppelt, gelle?

Lege dir das Befüllen der IdMessage in eine eigene procedure

Der SendMessage übergibst du dann nur noch die beiden Instanzen von TIdSMTP und TIdMessage

Dann wird das schon mal wesentlich übersichtlicher und erleichtert auch dir die Fehlersuche