Delphi7 西祠发帖 图片上传

Question

西祠发帖子需要在帖子里上传图片，目前已解决了文本部分，上传图片一头雾水，忘诸位大拿帮忙解决.
发帖的代码：
procedure TForm1.Button2Click(Sender: TObject);
var
  FTitle,FContent: IHTMLInputElement;
  FSubmit: OLEVariant;
  doc : IHTMLDocument2;
  el: OleVariant;
  v: OleVariant;
  i: Integer;
  sTitle, sText:WideString;
begin
  try
    sTitle := Edit2.Text;
    if sTitle = '' then
    begin
      ShowMessage('请输入发帖标题！');
      Exit;
    end;    sText := Memo1.Text;
    if sText = '' then
    begin
      ShowMessage('请输入发帖内容！');
      Exit;
    end;    if WebBrowser1.Document <> nil then begin
      if WebBrowser1.Document.QueryInterface(IHTMLDocument2,doc) = S_OK then begin
        try          FTitle := doc.all.item('doc_title', 0) as IHTMLInputElement;
          FTitle.value :=sTitle;          WebBrowser1.OleObject.document.Script.tinyMCE.setContent(sText);
          FSubmit := doc.all.item('bSendDoc', 0);
          //FSubmit.click;
          ShowMessage('发帖成功，标题：'+ FTitle.value);
        except
          ShowMessage('发帖失败，标题：'+ FTitle.value);
        end;
      end;
    end;
  finally  end;end;图片部分还没有，忘各位多多帮忙

Answer 1

登陆账户：3doo
密码：3doo.cn

Answer 2

通过内嵌的浏览器+js，能发文字应该也能发图啊
看看图片需要填哪些input如果使用tcp/http控件实现，图片需要生成分段的数据，格式要求比较多