ListView - dodawanie danych (kod do poprawki)

Witam!

Cały dzień męczę dodawanie, a raczej odbieranie emaili z serwera do Listview.
Komponent ten posiada 3 kolumny: Temat, Od, Data.

   Listy.Items.Add.Caption:=IntToStr(i)+'. '+ IdMessage1.Subject;
   Listy.Items.Add.SubItems.Add(IdMessage1.From.Address);
  Listy.Items[0].SubItems.Add(DateToStr(Idmessage1.date));

Nie potrafię napisac procedurek, które będą mi pobierały tytuł, od i data:(
Dodaje mi do Listview te dane w co drugim wierszu!!
Przeleciałem całe forum w poszukiwaniu konkretnej odpowiedzi, ale NIC!!!

Dane wpisują się do tabeli w takiej postaci:

temat1 14-03-2006
mail1
temat2
mail2
temat3
mail3

Nie dość, że tak co drugi wiersz schodkowo mi się wpisują dane to jeszcze tylko jedna data :/
Cały dzień przesiedziałem przed kompem, sprawdziłem wszystkie możliwe kombinacje i dalej nic nie potrafię zrobić:(

Czy ktoś mi poprawi te kodziki? Ja już nie mam pomysłu :(((

Dobra, już doszedłem :)

var
Item: TListItem;

Item := Listy.Items.Add;
Item.Caption := IntToStr(i)+'. '+ IdMessage1.Subject;
Item.SubItems.Add(IdMessage1.From.Address);
Item.SubItems.Add(DateToStr(Idmessage1.date));

A jak teraz usunąć list np. według tematu lub emaila biorąć dane po których ma usunąć z komponentu Listbox???