delphi向页面插入值。该如何解决

delphi向页面插入值。
图片事例在http://q.cnblogs.com/q/32716/
delphi代码如下：

Delphi(Pascal) code

procedure TfrmPrice.SetPage;var  o,v: OleVariant;  frm: IHTMLDocument2;  iw: IWebbrowser2;  i,j,k: Integer;  iValue: integer;  sInfo,sValue: string;  strs : TStrings;begin                sInfo  := glExcel[giInfoID][strtoint(glModule[i].sCol)];          strs := TStringList.Create;          strs.Delimiter := '\';          strs.DelimitedText := sInfo;          for j := 0 to strs.Count - 1 do    // Iterate          begin            if j = 0 then            begin              sValue := GetAreaName(strs[j]);              o := frm.all.item(glModule[i].sId + inttostr(j),0);              o.value := sValue;            end            else            begin              o := frm.all.item('addSmsRegion',0);              o.Click;              sValue := GetAreaName(strs[j]);              o := frm.all.item(glModule[i].sId + inttostr(j),0);              o.value := sValue;//执行到这里出错。            end;          end;        end