应该是:
replacetext:='<img src=';   不是src:';

解决方案 »

  1.   

    还有,要用" ,不要 '',还要注意关键字之间的空格~~,,,
    全部应改为这样:case  tag  of
       tgimage : begin
                replacetext:='<img src=';
                replacetext:=replacetext+'"file:///'+extractfilepath('table.exe')+'/YINHEZHENGWEN.gif"';
         replacetext:=replacetext+' height="180" width="240" border="0">';
                 end;
      

  2.   

    其实就是利用Delphi的控件产生Html语法,只要你对html语法了解就行了!