Проверка на дисконнект (в потоке)

procedure CheckDisconnectThread();
begin
  while delay(100) do begin
    if (Engine.Status <> lsOnline) then begin
      Print('Дисконнект, торможу скрипт');
      Script.Suspend;
      while (Engine.Status <> lsOnline) do delay(100);
      Print('Зашел в игру, продолжаю работу');
      Script.Resume;
    end;
  end;
end;

begin
  Script.NewThread(@CheckDisconnectThread);
  // code
end.