Mehr als 2 Schleifenfunktionen einbauen?

[malo]

Und zwar hab ich da folgendes Problem:

Ich will, wenn ich auf Button1 klicke, den Text bei Label1 ändern. Das ist ja schonmal gut so. Dann wollte ich, wenn ich nochmal auf Button1 klicke, im Label einen anderen Text erscheinen lassen. Das hab ich mit folgendem Befehl auch super hingekriegt:

Delphi-Quellcode:

if Label1.Tag = 0 then Label1.Caption := 'Hallo Welt';
else Label1.Caption := 'ich bin da';
Label1.Tag := 1-Label1.Tag;

Nur was soll ich machen, wenn ich jetzt einen dritten Text erscheinen lassen will, wenn ich auf den Button klicke? Ich bin da völlig planlos...