procedure TDebuggerForm.PauseActionExecute(Sender: TObject);
begin
  with TPSThread(DebugThread).PSScript do
    TThread.Synchronize(DebugThread, @Pause);
end;