[InTacto]

Отсутствует создание переменной locautXmlHttp.
Я думаю ServerXMLHTTP60 излишен достаточно обычного xmlhttp

Name	DataType	Subtype	Length
XMLHTTP	Automation	'Microsoft XML, v6.0'.XMLHTTP60	

// отправка файла
IF ISCLEAR(XMLDoc) THEN
CREATE(XMLDoc);
XMLDoc.async := FALSE;
XMLDoc.load('C:\TEMP\1.xml');

IF NOT ISCLEAR(XMLHTTP) THEN
  CLEAR(XMLHTTP);
CREATE(XMLHTTP);

XMLHTTP.open('POST', "полный путь до файла на сервере", FALSE, Login,Pass);
XMLHTTP.send(XMLDoc);

IF XMLHTTP.status<>200 THEN
  BEGIN
    error(XMLHTTP.statusText)
  END;

Вы уверены, что в ответном сообщении в теле что-то будет?