[NumLock]

все-равно я ничего не понял. будем гадать дальше

Код:

var
  stringstream: TStringStream;
begin
  stringstream:=TStringStream.Create('');
  try
    stringstream.WriteString('<?xml version="1.0" encoding="windows-1251"?>');
    stringstream.WriteString('<document>');
    stringstream.WriteString('<function name="employerInfo">');
    stringstream.WriteString('<param name="login">ivanov</param>');
    stringstream.WriteString('<param name="pass">f8b932c80d0b2e6bf025149a4fa68dfc</param>');
    stringstream.WriteString('</function>');
    stringstream.WriteString('<client name="SomeProgram" version="1.0"/>');
    stringstream.WriteString('</document>');
    IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
    IdHTTP1.Request.ContentLength:=stringstream.Size;
    stringstream.Position:=0;
    Memo1.Text:=IdHTTP1.Post('http://xxx.xxx.xxx.xxx/api/functions.php', stringstream);
  finally
    stringstream.Free;
  end;
end;

если заменить xxx.xxx.xxx.xxx на правильное значение что будет в результате?