好象发现Delphi7的一个BUG (0分)

最近做了一个CGI形的Web services服务器程序，发现delphi7一个可能的bug,情况如下：
1、在个access数据库中有两个access数据表，一个为a1,另一个为a2。
2、在程序中动态创建了一个datamodule2.
3、在datamodule2中定义了一个公共函数，概况如下：
　test(const id:integer,const session:string):booleadn;
　begin
ADODATASETA1.ACTIVE:=TRUE;//连接到A1
　ADODATASETA2.ACTIVE:=TRUE;//连接到A2
[blue] with adodatasetA1do
begin
edit;
fieldbyname('kk').asinteger:=id;
post;[/blue]
end;

[green] with adodatasetA2do
begin
edit;
fieldbyname('ff').asinteger:=session;
post;
end;
[/green]
[red]{ with adodatasetA2do
begin
edit;
fieldbyname('ff').asinteger:=session;
post;
end;
}[/red]
end;

4、BUG状况：
当调用上述函数时，程序只能修改掉A1中的数据，
而A2中的数据则无法更改（经试验该语句已经实际的执行了）。
经过两天测试，在代码中再加入上述｛红色｝的代码段（注意：
红色代码段重复了绿色代码段，两个数据表的数据均正确修改了。
另外：如果把绿色和蓝色代码段在程序段中的位置互换一下，则红色代码段则要重复蓝色代码段。
？？字体颜色怎么改的？？？

<8D>