先看下面的源码，在TWebBrowser当前编辑位置插入一个图片，是通过源码的方法插入的。

var urlStr : string;  
    ovSelection: OleVariant;  
    ovTextRange: OleVariant;  
    tmpStr : string;  
begin  
  urlStr := 'http://www.1and1-mail.com/imgv2/pic_1.jpg';  
       ovSelection := Edit.OleObject.Document.selection; //获得选择对象  
       ovTextRange := ovSelection.createRange; // create a TextRange from the current selection  
       tmpStr := Format('', [urlStr]);  
       ovTextRange.pasteHTML(tmpStr);  //粘贴图片源码  
end;  

上面代码中，如果编辑的时不选择任何内容，或者选择了一部分文字，可以正常插入图片，但是如果原来选择的是个图片，或者是其它的比如按钮，录入框，在调用ovTextRange.pasteHTML时会出现 Method pasteHTML not supported by automation object 错误。
解决方法1：
先清空选择对象，如下代码

ovSelection := Edit.OleObject.Document.selection; //获得选择对象  
ovSelection.Clear;  //先清空  
ovTextRange := ovSelection.createRange; // create a TextRange from the current selection  
tmpStr := Format('', [urlStr]);  
ovTextRange.pasteHTML(tmpStr);    

解决方法2：
判断选择的类型，代码如下

ovSelection := Edit.OleObject.Document.selection; //获得选择对象  
if SameText(ovSelection.type, 'Text') or SameText(ovSelection.type, 'None') then   //只有选择文本、或不选择的地方可以插入  
begin  
  ovTextRange := ovSelection.createRange; // create a TextRange from the current selection  
  tmpStr := Format('', [urlStr]);  
  ovTextRange.pasteHTML(tmpStr);  //粘贴图片源码  
end;