Listbox - Addobject

[Alexander]

Hallo Leute,
Ich habe ein kleines Problem, mit AddObject und zwar komme ich später nicht mehr an die Werte ran, die ich mit AddObject übergeben habe
Ich habe das so probiert:

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
var
  s : String;
begin
  EDIT_ToDo.ItemIndex := EDIT_ToDo.Items.AddObject('test', Pointer(fsStrikeOut));
  s := String(EDIT_ToDo.Items.Objects[EDIT_ToDo.ItemIndex]);
end;

Doch leider kommt es immer zu einer AV.
Könnt ihr mir mal kurz helfen?
PS: Freigegeben oder so habe ich das Object auch nicht...