以下布尔变量aa为什么不能被赋值？？
代码，版本delphi6
******************************
procedure TForm1.Button1Click(Sender: TObject);
var
aa:boolean;
begin
aa:=true;
aa:=false;
if aa then
Memo1.Lines.Add( 'aaaaa ');
if not(aa) then
begin
Memo1.Lines.Add( 'bbbb ');
aa:=true;
end;
end;

end.
*************************************
其中的aa不能被赋为真值。请高人帮助解答。

[解决办法]
是编译器优化的原因。