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

procedure TAAmeisen.EntferneAmeise (pAmeise: TAmeise);
var lx: Integer;
begin
  for lx:= low(kenntAmeisen) to high(kenntAmeisen) do
    if @pAmeise = @kenntAmeisen[lx] then // vergleichen der Adressen
      begin
      pAmeise.gibFrei;  
      kenntAmeisen[lx]:= kenntAmeisen[high(kenntAmeisen)];
      end;
  setlength(kenntAmeisen, length(kenntAmeisen)-1);

end;					

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

Type
  TAmeise = Class ( TObject )
  End;

  AmeisenListe : TList;


// Ameisenliste erzeugen
  Ameisenlsite := TList.Create;

// Ameise in die Liste einfügen
Ameise := TAMeise.Create;
AmeisenListe.Add ( Ameise );

// Ameise aus der Liste entfernen
if ( AmeisenListe.IndexOf ( Ameise ) <> -1) Then
Begin
  Index = AmeisenListe.IndexOf ( Ameise )
  TAmeise ( AmeisenListe[Index] ).Free;
  AmeisenListe.Delete ( Index );
End;