请帮忙看下，这段代码有什么问题吗(解决了)(0分)

下面是我写的一个函数，在正常的Form下能够通过，但在ActivexForm下却不能通过。
在ActivexForm下编译没问题，但从网页上调用时，就发生错误，帮忙看下什么原因吧

Function FCEntry(SourceStr:String):String;

Var
mytmpStr1,mytmpStr2,mytmpStr3:String;
mytmpList:TStringList;
I,Klen,J:Integer;
begin

mytmpList:=TStringList.Create;
For I:=1 to length(SourceStr)do

[red]mytmpstr1:=mytmpStr1+InttoHex(Ord(SourceStr),2);
//这是在正常的Form中[/red]//在ActivexForm中,用下面的代码替换上面的代码可实现
[blue]mytmpStr1:=mytmpStr1+Format('%X',[Ord(SourceStr)]);[/blue]
edit4.Text:=mytmpstr1;
Klen:=Length(mytmpStr1) div 2;
For I:=0 to KLendo

mytmpList.Add(Copy(mytmpStr1,I*2+1,2));
For I:=0 to mytmpList.Count-1do

begin

mytmpStr2:=mytmpList.Strings;
mytmpStr3:=mytmpStr3+Copy(mytmpStr2,2,1)+Copy(mytmpStr2,1,1);
end;

Result:=mytmpStr3;
end;

怎么没人呀

请各位高手给个意见。

报什么错误了？

至少可以看到你的tstringlist没有释放

不是TStringList的问题,是InttoHex函数的问题,难道在ActivexForm中不支持IntToHex函数?