Du kannst das auch so machen:
Delphi-Quellcode:
For i := 0 To 8 Do Begin
if i in [0..2, 5..8] then
...
End;
Oder Du verlagerst den Code in eine eigene Routine, der Du das "Teilarray" übergibst.
[edit]
gammatester hatte den gleichen Gedanken, nur andersherum umgesetzt [/edit]