[prestuplenie]

Я только начал изучать дельфи, и у меня задача отправить с помощью xml в дельфи запрос на сервер, и получить ответ от сервера. Запрос у меня на получение реквизитов пользователя

Код:

procedure TForm1.Button1Click(Sender: TObject);

var
Stream: TIdMultipartFormDataStream;
sl:tstringlist;
begin
Stream := TIdMultipartFormDataStream.Create;
sl:=tstringlist.create;
try
//sl.LoadFromFile('C:\zapros.xml');
sl.add('<?xml version="1.0" encoding="windows-1251"?>');
sl.add('<document>');
sl.add('<function name="employerInfo">');
sl.add('<param name="login">ivanov</param>');
sl.add('<param name="pass">f8b932c80d0b2e6bf025149a4fa68dfc</param>');
sl.add('</function>');
sl.add('<client name="SomeProgram" version="1.0"/>');
sl.add('</document>');

  {Stream.AddFile('filename', 'C:\zapros.xml', 'xml');
  Form1.IdHTTP1.HandleRedirects := True;
  Form1.Memo1.text:=Form1.IdHTTP1.Post('http://xxx.xxx.xxx.xxx/api/functions.php', Stream );}
  Form1.Memo1.text:=idhttp1.post('http://xxx.xxx.xxx.xxx/api/functions.php',sl);

finally
  //Stream.Free;
  end;

Админ: Пользуемся тегами!

Где у меня ошибка, подскажите плз...