Tidhttp控件post文件

我利用短信网关发一个彩信，用Tidhttp控件post图片和文字，怎么实现，
网关例子是：http://mms.xunsai.net:8002/?user=username&password=password&phonenumber=13901234567&mmssubject=测试彩信&mmsfile=http://www.xunsai.com/mmsdemo/cmcc.gif&charset=gb2312下面我写的代码，但怎么都不成功，提示'HTTP/1.0 401 Authorization Required'.
  AValues := TStringList.Create;
  AValues.Values['user'] := g_ColorSendUser;
  AValues.Values['password'] := g_ColorSendPassword;
  AValues.Values['phonenumber'] := GetMobileNoList;
  AValues.Values['mmssubject'] := edTitle.Text;
  if edImagePath1.Text<>'' then
    AValues.Values['mmsfile1'] := edImagePath1.Text;
  if edImagePath2.Text<>'' then
    AValues.Values['mmsfile2'] := edImagePath2.Text;
  AValues.Values['mmstext'] := mmMessage.Lines.Text;
  AValues.Values['charset'] := 'gb2312';
  try
    PostStream.AddFormField('user', AValues.Values['user']);
    PostStream.AddFormField('password', AValues.Values['password']);
    PostStream.AddFormField('phonenumber', AValues.Values['phonenumber']);
    PostStream.AddFormField('mmssubject', AValues.Values['mmssubject']);
    if edImagePath1.Text<>'' then
      PostStream.AddFile('mmsfile', AValues.Values['mmsfile1'], GetMIMETypeFromFile(AValues.Values['mmsfile1']));
    if edImagePath2.Text<>'' then
      PostStream.AddFile('mmsfile', AValues.Values['mmsfile2'], GetMIMETypeFromFile(AValues.Values['mmsfile2']));
    PostStream.AddFormField('mmstext', AValues.Values['mmstext']);
    PostStream.AddFormField('charset', AValues.Values['charset']);
    PostStream.Position := 0;
    IdHTTPSend.Request.ContentType := PostStream.RequestContentType;
    strResult := IdHTTPSend.Post(g_SendColorGateway, PostStream);