indy10组件如何发送带图片和附件的html邮件？分不够可以再加！

现在网上很多的列子都是基于D7+indy9的，我现在用的是D2007+自带的indy10，以前的很多代码都不知道应该如何转换。
谁有相关的列子，最好是给出详细代码。
发送无附件的html格式用的代码格式如下
  Smtp:TIdSMTP;
  Msg:TIdMessage;
邮件内容Fhtml:tstrings，用的是webbrowser组件的编辑模式，获得源代码添加到Fhtml里面。  Msg:=TIdMessage.Create(nil);
  with Msg do
  begin
    Clear;
    From.Address:='[email protected]';
    ReplyTo.EMailAddresses:=Form1.lst2.Items[0];
    CCList.EMailAddresses:=Form1.lst2.Items[0];
    Subject:='测试';
    Priority := TIdMessagePriority(mpHighest);
    contenttype := 'text/html';
    body.assign(Fhtml);
  end;  Smtp:=TIdSMTP.Create(nil);
  with Smtp do
  begin
    Host:=FHost;
    Port:= 25;
    Username:=FUserName;
    Password:=FPassword;
    AuthType := atDefault;
    Connect;
    try
      Send(Msg);
    finally
      Disconnect;
    end;
  end;
  Msg.Free;
  Smtp.Free;
主要问题就是如何把源代码中的图片发送出去，如果有图片和其他附件同时都需要发送应该怎么写？如果能给出全部的详细代码，可以再加分！