TStringList und AddObject: wie richtig verwenden ?

[paule32.jk]

Hallo,
ich habe folgenden Code, der mir in einer anderen Anwendung ein MAV
memory access violence liefert:

Delphi-Quellcode:

type
  Thelper = class
  public
     caption: String;
   id: Integer;
  end;
var tester: Thelper;
var sl: TStringList;
begin
  tester := Thelper.Create;
  tester.caption := 'foo';
  tester.id := 123;
  
  sl := TStringList.Create;
  sl.AddObject('bar', TObject(tester));
  
  ShowMessage(Thelper(sl.Objects[0]).caption);  
end.

ist da irgendwo ein Fehler ?