delphi2010中的错误行为/错误“提取方法”

当我尝试在if语句中提取一个方法时,我正面临这个问题.我无法找到任何报告的错误.

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上的行为是什么？有谁知道是否有报道？