[NumLock]

либо отказаться от Инди, либо доработать ее:

Код:

function TIdMultiPartFormDataStream.FormatField(AIndex: Integer): string;
  function FileField(AItem: TIdFormDataField): string;
  begin
    with AItem do begin
      result := Format('--' + Boundary + crlf + sContentDisposition +
        sFileNamePlaceHolder + crlf +
        sContentTypePlaceHolder, [FieldName, UTF8Encode(ExtractFileName(FileName)), ContentType]);
    end;
  end;

  function NormalField(AItem: TIdFormDataField): string;
  begin
    with AItem do begin
      result := Format('--' + Boundary + crlf + sContentDisposition + crlf + crlf +
        FieldValue + crlf, [FieldName]);
    end;
  end;

begin

+function TIdFormDataField.GetFieldSize: LongInt;

но лучше сделать все-таки универсальной, чтобы имя ресурса можно было передавать через AddFile.