Envoi d'un TidHttp.POST

Réponse acceptée !
Bon, un bon début, j'arrive maintenant à bien envoyer mes informations. En faite, je lui envois un document xml...

Bout de code :
---------------

var
  XmlReponse : TStringStream; 
  XmlDemande : TStringList;
  adrUrl     : String;
begin

  adrUrl := 'http://' + adrServeur;

  with frmMain.ConnectHttp do
  begin

    //Creation de la TStringList
    XmlDemande := TStringList.Create();
    try//1
      //Chargement du fichier Xml dans XmlDemande
      XmlDemande.Add('Ici mon document XML');

      //Creation du fichier XmlReponse
      XmlReponse := TStringStream.Create();
      try//2

        //Propriétés HTTP
        ProtocolVersion := pv1_1;
        IOHandler.Host := adrUrl;
        IOHandler.Port := 80; 

        //Envoi du POST
        Post(adrUrl,XmlDemande,XmlReponse);

        //Traitement de la réponse
       [...]

      finally
        XmlReponse.Free;
      end;//2

    finally
      XmlDemande.Free;
    end;//1

  end;//with

Voilou !