Fórum Email via idhttp/post ajuda #367202

procedure TForm1.Button1Click(Sender: TObject);
var
  Lista : TStringList;
  begin
  Lista := TStringList.Create;
  Lista.Clear;
  Lista.Add(´destinatario=´ + (´email@destino.com´));
  Lista.Add(´titulo=´ + ´Teste´);
  Lista.Add(´texto=´ + ´Sucesso´);
  try
  idhttp1.Post(´http://linkdophp.com´, Lista);
  finally
  Lista.Free;
  end;
  end;

<?
$destinatario =$_POST["email@destino.com"];
$assunto =$_POST["titulo"];
$remetente ="email@remetente.com";
$cabecalho ="From:cliente instalado!!\nReply-To: $remetente";
$corpo =$_POST["texto"];
mail($destinatario, $assunto, $corpo, $cabecalho);
?>