1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

type TTagesstates = (Tag,Abend,Nacht,...{Sonnenaufgang}); //intern ist das ein Ganzzahltyp

var Tageszeit:TTagesstates;

implementation

procedure Graphic.click(...);
begin
   tageszeit:=(ord(Tageszeit)+1) mod (length(Tageszeit));
   //hier könnte er einen Typfehler ausspucken aber auch nur weil Eelphi das nicht besser weiß.
   //desweiteren weiß ich nicht, ob ord auf Aufzählungstypen wirkt und ob dafür ein length definiert ist.
   //das length ist aber nicht so wichtig, da Aufzählungstypen zur Compilierzeit bekannt sind und zur Not per
   // Hand abgezählt werden können.
   case tageszeit of
   Tag:begin {zeichne Tag} end;
   Abend:begin {zeichne Abend} end;
   ...
   end;
   //case kann man auch als if then else coden:
   {if tageszeit=Tag
    then begin
       {zeichne Tag
   end else if tageszeit=Abend
   then begin
   ...
   end else if ...
   ...
   end;
   }
end;					

1:
2:
3:
4:
5:
6:
7:
8:

  private
    { Private-Deklarationen }
    tag:= form1.color := claqua;
    tag:= lblSonneTag.visible := true ;
    abend:= form1.color := clpurple;
    abend:= lblSonneAbend.visible := true ;
    nacht:= form1.color:= clblack;
    nacht:= lblMond.visible:= true;					

1:

type TTagesstates = (Tag,Nacht);					

1:
2:
3:
4:

type Tmeintyp = record
               name:string;
               wert:integer;
        end;					

1:
2:

var person : TMeintyp; 
 person.name:='Janina';					

1:
2:
3:
4:
5:
6:
7:

if Status='Abend' then
 begin
  //hier schreibst du was du machen willst z.B.
  Form1.Color:=clAqua;
 end
else if Status='Nacht' then 
 ...					

1:

 Status:='Abend';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if Tagstring='Nacht'
then begin
   tagstring:='Morgen';
   {male Nacht}
   //beim nächsten klick ist dann die variable ja schon Morgen => fertig
end else if tagstring='Morgen'
then begin
   ...
end esle
...