有关线程执行循环事件操作时的难题

Question

constructor TGetNetworkTime.Create(CreateSuspended: Boolean; HostAddr: string; Interval: Integer);
begin
  fInterval := Interval;  FreeOnTerminate := true;
  inherited Create(CreateSuspended);
end;destructor TGetNetworkTime.Destroy;
begin
  inherited destroy;
end;procedure TGetNetworkTime.Execute;
var
  dtDateTime: TDateTime;
  yy, mm, dd, hh, nn, ss, tt: word;
begin
  repeat
    //执行操作    Sleep(fInterval);
  until Terminated;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  GetNetworkTime := TGetNetworkTime.Create(False, '192.168.1.162', 10000);end;procedure TForm1.Button2Click(Sender: TObject);
begin
  GetNetworkTime.Terminate;
end;
当Button2Click之后，线程会先等Sleep(fInterval);执行到时间了后，再到until Terminated;推出循环，执行Destroy如果fInterval值很大，岂不是要等很久？有没有什么方法，在Button2Click里执行语句后，能直接跳出
  repeat
    //执行操作    Sleep(fInterval);
  until Terminated;
到Destroy里

Answer 1

你这种实现方法没有办法，因为sleep是阻塞的，可以换用定时器，不使用循环。

Answer 2

最简单就是多加一个BOOLEAN变量