procedure TForm1.BitBtn3Click(Sender: TObject);
var
  x: integer;
  b: boolean;
begin
  if true then
    x := 8    //********************** i try to extract this line
  else
    x := 6;

  showmessage(inttostr(x));
end;

我得到的结果是：

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  x: integer;
  b: boolean;
begin
  if true then
    newMethode
  else
    x := 6;

  showmessage(inttostr(x));
end;

而新的Methode是：

procedure TForm1.newMethode;
var
  x: Integer;
begin
  x := 8;
end;

任何人都可以检查Delphi XE上的行为是什么？有谁知道是否有报道？