寻人启示：高手在哪里？(13分)

我要将下面过程改写为function 为何出错?
原过程:
var o : Olevariant; //name是web中的edit控件,ss为要向web赋的值
begin
o:=form1.webbrowser1.oleobject.document.all.item('name',0);
o.value:='ss';

改写为:
FUNCTION tform1.dj_xx(name,aa:string):boolean;
var o : Olevariant;
begin
try
o:=webbrowser1.oleobject.document.all.item(name,0);
o.value:=aa;
result:=true;
except
result:=false;
end;
end;
调用时:
dj_xx('name','ss'):

我哪里写错了???

出错信息是什么？？？

可我为何出现下面的提示：
project project1.exe raised exception class eaccessviolation with
message 'access.violation at address 004421fb inmodule
'project1.exe'read of address ffffff',process stopped
use step or run to continue
请帮忙看一下是为什么?

FUNCTION tform1.dj_xx(name,aa:variant):boolean;

接受答案了.