散分！散分！散分！散分！散分！该如何处理

散分！！！！！！散分！！！！！！散分！！！！！！散分！！！！！！散分！！！！！！
先上段代码

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.w3school.com.cn/htmldom/event_onselect.asp');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
//ht,ht1 :ihtmldocument2;
ht : Olevariant;
i:Integer;

begin
  ht:=webbrowser1.document as ihtmldocument2;

  for i := 0 to ht.all.length - 1 do

  begin
  if ht.all.item(i).tagName = 'input' then
  if ht.all.item(i).value='Hello world!' then

  begin

  ShowMessage(ht.all.item(i).value);
  ht.all.item(i).onselect;

  // ht.all.item(i).InvokeMember('onselect');



  end;
  end;
 end;
end.
怎么模拟onselect事件，哪位好人指教下

------解决方案--------------------
楼主是只背景变蓝色的效果吗？
------解决方案--------------------


我只是来看看
------解决方案--------------------
接一个接一个
------解决方案--------------------

------解决方案--------------------

------解决方案--------------------
Delphi7的我也不知道，怎么作业。