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

var a:integer;
   a:=nr;
   while a+1<length(k) do
    begin
      k[a]:=k[a+1];
      inc(a);
    end;
//   k[length(k)-1].Free;
   setlength(k,length(k)-1);					

1:
2:
3:
4:
5:

type
  Ttest=class(Timage)
    a,b:integer;
    ...
  end;					

1:
2:
3:
4:
5:

type 
  Ttest=class(image)
   a,b:integer;
  end; 
  test=list of Ttest					

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:

var fMyObjList:TObjectList;
    i:Integer;
    aImg:TImage;
...
  fMyObjList:=TObjectList.Create;
  try
    // so, mal 5 ImageObjekte hinzufügen
    for i:=1 to 5 do fMyObjList.Add(TImage.Create(Self));
    // oder
    for i:=1 to 5 do
    begin
      aImg:=TImage.Create(Self);
      aImg.Width:=32;
      aImg.Height:=32;
      ...
      fMyObjList.Add(aImg);
    end; // for i
    ShowMessage(Format('Die Liste enthält %d Elemente!', [fMyObjectList.Count]);

    // 2. Element in der Liste löschen
    fMyObjList.Delete(1);
    ShowMessage(Format('Die Liste enthält %d Elemente!', [fMyObjectList.Count]);
  
    // 1. Element in der Liste löschen
    fMyObjList.Delete(0);
    ShowMessage(Format('Die Liste enthält %d Elemente!', [fMyObjectList.Count]);

    // Das letzte Image in der Liste auswählen
    aImg:=TImage(fMyObjList.Items[fMyObjectList.Count-1]);
    ShowMessage(Format('Das Image ist %d Pixel breit und %d Pixel hoch.', [aImg.Width, aImg.Heigth]));
  finally
    fMyObjList.Free;
  end; // try
...