Wozu case wenn du schon mit einem Array arbeitest?
Delphi-Quellcode:
var
meinetexte: array[0..n] of string;
textitem: integer = 0;
[...]
begin
textitem := (textitem+1) mod length(meinetexte); // statt length(meinetxte) kann man natürlich auch einen hartkodierten wert nehmen
label1.caption := texte[textitem];
end;