function TRSChooseOption.IsClosed(maxWaitTime:Int32=-1; IntervalMS:Int32=25): Boolean;
var t:UInt64;
begin
  if maxWaitTime < 0 then
    maxWaitTime := Random(1500,2500);
  t := GetTickCount64() + maxWaitTime;
  while self.IsOpen(1) and (GetTickCount64() < t) do
    Wait(IntervalMS);
  Result := not(self.IsOpen(1));
end;