Danke, das hatte ich jedoch schon so.
Bei dieser Zeile:
Memo1.Lines.Text := IdHTTP1.Post(IncludeTrailingBackslash(ExtractFilePath(ParamStr(0))) + 'mail.php', data);
kommt folgender Fehler:
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Projekt1.exe ist eine
Exception der Klasse EIdSocketError aufgetreten. Meldung: 'Socket-Fehler # 10061
Verbindung abgelehnt.'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------