[PhoeniX]

Попробуй так...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:tstringlist;
  t: string;
begin
  sl:=tstringlist.create;
  try
    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>');
    t:=sl.Text;
    t:=StringReplace(t,#10,'',[rfReplaceAll]);
    t:=StringReplace(t,#13,'',[rfReplaceAll]);
    sl.Clear;
    sl.Add('input_xml='+t);
    Memo1.text:=idhttp1.post('http://xxx.xxx.xxx.xxx/api/functions.php',sl);
  finally
    sl.Free;
  end;
end;