Разгледай TObjectList, и направи следните 2 стъпки:

1) Напъхай всички TLabel, събиращи се в панела в един TObjectList
2) Когато стигнеШ if L_Top >= Panel1.Height then с един цикъл for i:=... downto ... смени Caption на всеки (i-1) TLabel с този на i (за всички от втория до последния TLable в TObjectList) - това ще ти "скролира" надписите нагоре

чети и дишай по-леко

Съдържаниет е скрито
Влезте за да го видите