...

while True do
begin

  // Dieser Code wird ausgeführt, wenn eine Session startet oder fortgesetzt wird
  if cpGetRacingStatus = 'R' then
  begin
    ...  // Session läuft
    cpSleep(100);
  end
  // Dieser Code wird bei Pause/Chaos ausgeführt
  else if cpGetRacingStatus = 'P' then
  begin
    ...  // Session unterbrochen
    cpSleep(100);
  end
  else
  begin
    // Session gestopped. Endlosschleife beendet
    exit;
  end;

end;

...