Instanz einer Klasse identifizieren?!

[maddin4u]

Hi.

Ich habe jetzt alles soweit erfolgreich mit TObjectList gelöst.

Eine Sache funktioniert bloß noch nicht und zwar eine Instanz wieder löschen.

Dazu habe ich mir jetzt statt GetItemById eine Prozedur RemoveItemByID "gebastelt":

Delphi-Quellcode:

procedure TTestObjectList.RemoveItemByID(_ID: integer);
var
  Objekt: TTest;
  i: integer;
begin
  Objekt:= nil;
  for i := 0 to Count-1 do
  if Items[i].ID = _ID then
  begin
    Objekt:= Items[i];
    Objekt.Free;
    // HIER nach tritt eine Exception auf. Ist eigentlich auch klar. Da es das Objekt ja nicht mehr gibt
    // aber ist es auch schon aus der TObjectList verschwunden?
    Remove(Items[i]);
    exit;
  end;
end;

Wie kann ich die Instanz der Klasse und den "Eintrag" in die TObjectList erfolgreich löschen?

Thx!