1:
2:
3:
4:
5:
6:
7:

var
  test:array[0..9] of integer;
begin
  for i:=0 to 50 do begin
    if i in test then .... // aber das geht leider nicht, wie geht das ???
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

type
TColor = (clBlack, clRed, clGreen);
VAR
Color : set of TColor;

begin
  if clBlack in Color then
  begin
  end;
end;

//is ist zur Abfrage, von welcher Klasse ein Objekt ist:
if AOwner is TForm then
begin
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
TMyFiles = 1..99; // Indexe für deine Dateien
var
Files1 : TMyFiles;
Files2 : TMyFiles;

begin
Files:= [5,3]; // Dateien 5 und 3 sind in der Menge
if [3] in Files then // Abfrage, ob 3 in Menge ist
Files:= Files + [7]; // 7 hinzufügen
Files:= Files - [7,3]; // 7 und 3 wegnehmen					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var 
  test:array[0..9] of integer; 
  x : integer;
begin 
  for i:=0 to 50 do
     for x := 0 to 9 begin 
         if i = Test[x]  then .... //  Funktion ausführen
     end; 
end;