以下布尔变量aa为什么不能被赋值？该怎么解决

以下布尔变量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不能被赋为真值。请高人帮助解答。

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