1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    { add the used parameters for the script }
    data.AddFormField('zu', Edit1.Text);
    data.AddFormField('betreff', Edit3.Text);
    data.AddFormField('text', Memo1.text);
data.AddFormField('von', Form4.edtMail.Text);

    { Call the Post method of TIdHTTP and read the result into TMemo }
    Memo1.Lines.Text := form7.IdHTTP1.Post('http://www.meinedomain.de/mail/mail.php', data);
  finally
    data.Free;
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

<?php 

$von = htmlentities($_POST['von']);
$text = htmlentities($_POST['text']);
$zu = htmlentities($_POST['zu']);
$betreff = htmlentities($_POST['betreff']);

if(mail($zu, $betreff, $text, $von))
{
  echo 'Mail wurde erfolgreich gesendet.';
} 
else
{ 
  echo 'Mail konnte nicht gesendet werden!';
}
?>