BUG/BUG/BUG.............

有如下代码:
procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  I := I * I;
end;

选中:I := I * I;后点"注释"得到如下代码:
procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
//  I := I * I;
end;

这个时候按CTRL + Z出现BUG,得到如下代码:
procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
// I := I * I;
I := I * I;
end;

这个是正常现像，你再按一次Ctrl+Z就好了。

正常现象?:L

是IDE的局限，我们得将此操作拆分成两步，因此出现了需要两次undo才能恢复的现象。