Kleines Listenproblem (beginner)

[derhanes]

hallo,

ich habe hier eine liste sagewireinmal von 1-100.
diese wird nun in 4 versch. (voneinander unabhänigen) schleifen abgearbeitet.
also

Delphi-Quellcode:

while x<=100 do begin // A-erste
 if x = mache was...
end;

Delphi-Quellcode:

while x<=100 do begin // B-zweite
 if x = mache was...
end;

Delphi-Quellcode:

while x<=100 do begin // C-dritte
 if x = mache was...
end;

Delphi-Quellcode:

while x<=100 do begin // D-vierte
 if x = mache was...
end;

es soll nun so laufen das die variablen 1-100
auf alle 4 schleifen
gleichmässig verteilt werden, so:

x1-A
x2-B
x3-C
x4-D
x5-A
x6-B

usw.

wie gekomme ich das hin, mit mod habe ich es bisher vergeblich versucht,
klar jede variable soll nur einmal verarbeitet werden.

cu

[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]