1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

type 
TComponentnameArray = array of TComponentname;
(...)
var
master_array: TComponentnameArray;
(...)



procedure Tform1.Timer(Sender: TObject;);
var
inc:integer;

begin
if high(master_array) = (-1) or (0) then  Form1.Caption:='array leer'    //Array leer?

  else begin
  for inc:=low(master_array) to high(master_array) do begin    //Gehe von anfang bis Ende durch das Array

  with TPanel(FindComponent(master_array[inc])) do   // Mit dem aktuellen Panel... 
  begin
  if tag = 0 then begin                    // prüfen ob abgearbeitet?...                      
  deleteArrayElement(master_Array, inc);  // ...dann aktuelles Element aus dem Array löschen
  end;

      if tag > 0  {etc. etc.}    // wenn nicht null dann ab-arbeiten...
      (...)


// 

procedure DeleteArrayElement(var X: TArray; const Index: Integer) ;
begin
   if Index > High(X) then Exit;
   if Index < Low(X) then Exit;
   if Index = High(X) then
   begin
     SetLength(X, Length(X) - 1) ;
     Exit;
   end;
   Finalize(X[Index]) ;
   System.Move(X[Index +1], X[Index],(Length(X) - Index -1) * SizeOf(string) + 1) ;
   SetLength(X, Length(X) - 1) ;
end;                    

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

var PanelList: TList;

PanelList:= TList.Create;
PanelList.add(Panel1);  //Panel1 in die Liste eintragen
PanelList.add(Panal2);  //Panel2 in die Liste eintragen

for i := PanelList.Count-1 downto 0 do begin //alle Panels durchzählen (rückwärts zählen sonst error beim löschen)
  TmpPanel := (PanelList[i] as TPanel); //Panel aus der Liste holen
  
  //[...]

  if TmpPanel.Tag = 0 then
    PanelList.delete(i);

  //[...]
end;

PanelList.Free;