F7单步执行会出问题

Question

procedure TMyThread.Execute;
var
  Msg: TMsg;
begin
  while GetMessage(Msg, 0, 0, 0) = True do
  begin
    Form3.Caption := '';
  end;
end;procedure TForm3.FormCreate(Sender: TObject);
begin
  MyThread := TMyThread.Create(False);
end;你们用F7单步执行看看,为什么编译器不让执行.如果按F9来运行就不会.不明白

Answer 1

可是如果我编译的话就没有问题，但F7就有问题了。。

Answer 2

是消息的问题，换成其他代码就可以使用F7

Answer 3

为何不用F8兄弟你的回答还真牛呀。。