1:
2:
3:
4:
5:

 newperson:=person.create;
newperson.alter:=32;
newperson.name:='otto'
{...}
personenliste.additem('Otto',newperson);					

1:

personenliste.deleteselected;					

1:
2:
3:
4:
5:

 for i:=0 to personenliste.count-1 do begin
    tmpperson:=personenliste.items.objects[i] as person;
    name:=tmpperson.name;
   {ausgabe von "name" in Memo-Box}
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.Button1Click(Sender: TObject);
VAR myperson : Tperson;
begin
  inc(count);
  myperson:=TPerson.Create;
  myperson.vorname:='Peter'+IntToStr(count);
  myperson.nachname:='Lustig'+IntToStr(count);
  ListBox1.AddItem('Peter'+IntToStr(count),myperson);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  count:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.DeleteSelected;
end;

procedure TForm1.Button3Click(Sender: TObject);
VAR myperson : TPerson;
    i : INTEGER;
begin
  memo1.clear;
  for i:=0 TO ListBox1.Count-1 DO
  begin
    myperson:=ListBox1.items.objects[i] as tperson;
    memo1.Lines.Add(myperson.vorname+' '+myperson.nachname);
  end;
end;					

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

procedure TCustomListBox.DeleteSelected;
var
  I: Integer;
begin
  if MultiSelect then
  begin
    for I := Items.Count - 1 downto 0 do
      if Selected[I] then
        Items.Delete(I);
  end
  else
    if ItemIndex <> -1 then
      Items.Delete(ItemIndex);
end;