variable zahl eintäge in tlistbox oder advsmoothlistbox

[Marcoo]

Ok dann müsste es so besser sein aber wie krig ich das hin das ich unendlich einträge haben kann und nicht nur wie in diesem falle 2

Delphi-Quellcode:

if AdvSmoothListBox1.Items[0].Info = Datetostr(Date) then
    begin
      Timer1.Enabled := False;
      beep;
      showmessage(AdvSmoothListBox1.Items[0].Caption + ' hat heute Geburtstag');
      if AdvSmoothListBox1.Items[0].ButtonCaption <> 'E-Mail Adresse' then
      begin
        mail := 0;
        Action3.Execute;
      end;
    end;
    if AdvSmoothListBox1.Items[1].Info = Datetostr(Date) then
    begin
      Timer1.Enabled := False;
      beep;
      showmessage(AdvSmoothListBox1.Items[1].Caption + ' hat heute Geburtstag');
      if AdvSmoothListBox1.Items[1].ButtonCaption <> 'E-Mail Adresse' then
      begin
        mail := 1;
        Action3.Execute;
      end;
    end;