Bevor du den Timer startest setzt du LB.ItemIndex := 0;
Dann könntest du in dem Timer-Ereignis
Delphi-Quellcode:
with LB do
begin
Label.Caption := Items[ItemIndex];
if Item >= Count - 1 then
T.Enabled := false // Timer stoppen
else
ItemIndex := ItemIndex + 1;
end;
Alternativ zu ItemIndex kannst du auch selber eine Integer-Variable deklarieren.