Generische TObjectlist erzeugt AVs

[Neutral General]

Hi,

Folgender Testcode erzeugt bei mir eine Zugriffsverletzung:

Delphi-Quellcode:

type
  TTest = class
  end;

var
  test: TObjectList<TTest>

procedure TForm1.Button1Click(Sender: TObject);
var tmp: TTest;
begin
  test := TObjectList<TTest>.Create;

  tmp := TTest.Create;
  test.Add(tmp);

  Caption := IntToStr(test.IndexOf(tmp));  // <--- IndexOf !

  test.Free;
end;

Das sollte eigentlich nicht so sein oder?

Gruß
Neutral General