Also legst du alle relevanten Einträge in ein Array und checkst das nacheinander für den jeweiligen Index durch(, wenn du willst).
Delphi-Quellcode:
var a: array[1..10] of integer;
a[1] := 9;
a[2] := 19;
...
Und dann eben noch den Index durchchecken!