Ein Flag ist eine Boolean-Variable, das "JA" beinhalten kann (oder eben nicht).
Wechseln kann man das sehr leicht durch
Flag := not Flag;
Man kann auch eine Intergervariable nutzen und diese hochzählen.
Delphi-Quellcode:
I := 1;
...
Inc(I);
if I > 2 then
I := 1;
Es gibt da unterschiedliche Möglichkeiten. Du musst Dich an Deinen jeweiligen Bedürfnissen orientieren.