Mailversand aus einem Delphi Programm

[BUG]

Die verwendete base64-Funktion ist mit den ganzen String-Konkatenation (und damit Kopien) der Horror.
Probiere mal eine optimierte Variante hier aus dem Forum, das könnte schon eine Menge bringen.

Was mir ansonsten auffällt, ist das die Datei erst komplett in den Speicher geladen wird, dann nach base64 codiert wird und erst danach komplett gesendet wird. Das ließe sich vermutlich parallelisieren. Aber vorher solltest du dir auf jeden Fall erst einmals base64 angucken.

Lass dir mal die Zeiten für die unterschiedliche Phasen(Lesen/Kodieren/Senden) anzeigen, dann siehst du eventuell wo das meiste herauszuholen ist