Listbox.ittems.addobject как проиндексировать обьекты?

[N0foR]

создаю свой класс:

Planet = Class(Tobject)
  public
  Name: AnsiString;
  Date: AnsiString;
  Diametr :real;
  published
  constructor Create(Name:Ansistring;Date:AnsiString;Diametr:real);
  end;

constructor planet.Create(Name:Ansistring;Date:AnsiString;Diametr:real);
begin
inherited Create;
Name:=Name;
Date:=Date;
Diametr:=diametr;
end;

Добавляю данные в листбокс

 strg.Name:=edit1.Text;
 strg.Date:=maskedit1.Text ;
 Strg.Diametr:=strtofloat(edit2.Text);
 form1.ListBox1.Items.AddObject(strg.Name,strg) ;

где strg: planet

после того как хочу просмотреть все обьекты которые я занес в листбокс
отображаеться последний обьект что я ввел.Тоесть кликнул я на первую строку или на последнюю результат выдаеться последний обьект который вносил

k:=planet(ListBox1.Items.Objects[ListBox1.ItemIndex]) ;
edit1.Text:=k.Name;
MaskEdit1.Text:=k.Date;
edit2.Text:=floattostr(k.Diametr);

Подскажите может я не так добавляю?или както надо хранить индексы обьектов?