Неправильное поведение / Ошибка в 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;

, а новый метод:

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

Может ли кто-нибудь проверить, как работает Delphi XE? кто-нибудь знает, сообщалось ли об этом?