seryjne wysyłanie meili przy pomocy listview

mam nadzieje ze mnie tu nie zlinczujecie za to ze zakładam nowy temat ale nie moge znaleźć nic co było by podobne do tego co chce zrobić.

Mianowicie robie programik do obsługi bazy danych (mysql) w dbexpres. Chodzi o seryjne wysyłanie meili ale.. uzytkownicy którzy dostaną meila mają być wybrani z listy.

Zrobiłem juz wysyłke do jednego uzytkownika przy pomocy faq.

wiem ze seryjnie wysyła sie tak

idMessage1.BccList.EMailAddresses := '[email protected], [email protected]';

teraz wypadało by wstawić zamiast tego jakiś łańcuch ale nie umiem zrobic pobrania danych w pętli z listview do np memo czy stringa.

chodzi o to zeby po akcji

listview1.Selected.subitems[1]

dodawany był kawałek kolejnego meila. w listview jest dostępna jest opcja multiselect ale ja nie wiem jak ją obsłuzyc

z góry dziękuje zarówno za podpowiedzi jak i (co było by lepsze oczywiście) cały kod.

PS.Nie jestem najlepszy w programowaniu więc napiszcie DUZYMI literami jak mam to zrobic.

moze

var
  i:word;
  adresat:string;
begin
  for i:=0 to ListView1.Items.Count-1 do
    if ListView1.Items.Item[i].Selected then
      adresat:=adresat+','+ListView1.Items.Item[i].SubItems[1];
end;

thx, o to chodzilo.

ale tak szybciej ;)

adresat:=adresat+','+ListView1.Items.Item[ListView1.Selected.Index].SubItems[1];