variable zahl eintäge in tlistbox oder advsmoothlistbox

[Marcoo]

Ich glaub so funktionierts an ne for schleife hab ich garnicht gedacht Fail

Delphi-Quellcode:

var I:integer;
begin
  try
  for I := 1 to advsmoothlistbox1.Items.Count -1 do begin
    if AdvSmoothListBox1.Items[i].Info = Datetostr(Date) then
    begin
      Timer1.Enabled := False;
      beep;
      showmessage(AdvSmoothListBox1.Items[i].Caption + ' hat heute Geburtstag');
      if AdvSmoothListBox1.Items[i].ButtonCaption <> 'E-Mail Adresse' then
      begin
        mail := i;
        Action3.Execute;
      end;
    end;

*edit*0ist besser ok Danke