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

procedure TFTagNacht.TiTagNachtTimer(Sender: TObject);     //Timer Prozedur für Tag/Nacht Wechsel
begin
If         (ImSonne.Left=ImSonne.Left +-0)                 //Sonnenaufgang
Then begin ImSonne.Left:=ImSonne.Left +4;                  //Sonne nach rechts Verschieben
           ImSonne.Top:=ImSonne.Top -2;                    //Sonne nach oben verschieben
     end;					

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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
   FWinkel:Integer;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation
uses Math;
{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
   Fwinkel := 270;
   Timer1.interval := 20;
   DoubleBuffered := true;
end;

Function WinkelToTimeStr(Winkel:Integer):String;
begin
  Result := TimeToStr(Winkel/360 +0.5);
end;

procedure TForm2.FormPaint(Sender: TObject);
var
 x,y,Size:Integer;
 Tag:Boolean;
 AddWinkel:Integer;
begin
   Caption := WinkelToTimeStr(FWinkel);
   Tag := cos(DegToRad(Fwinkel))>0;
   if Tag then
      begin
        AddWinkel :=0;
        size := 20;
        Canvas.Brush.Color := clYellow;
      end
   else
     begin
        size := 10;
        Canvas.Brush.Color := clWhite;
       AddWinkel := 180;
     end;
   x :=  Width div 2 + Round(sin(DegToRad(Fwinkel + AddWinkel)) * Width / 2);
   y :=  Height - Round(cos(DegToRad(Fwinkel + AddWinkel)) * Width / 2);
   Canvas.Ellipse(x-Size,y-Size,x+Size,y+Size);
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   Fwinkel := (Fwinkel + 1) MOD 360;
   invalidate;
end;

end.					

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

procedure TFTagNacht.TiTagNachtTimer(Sender: TObject);     //Timer Prozedur für Tag/Nacht Wechsel 
begin 
    If (ImSonne.Left=ImSonne.Left +-0)                     //Sonnenaufgang 
    Then begin ImSonne.Left:=ImSonne.Left +4;              //Sonne nach rechts Verschieben 
               ImSonne.Top:=ImSonne.Top -2;                //Sonne nach oben verschieben 
end;					

1:
2:
3:

If ImSonne.Left < Width then TopAdd := -2 else TopAdd := 2; // Bildschirmmitte erreicht ?  grob genähert fehlt imgsonne.width div 2
ImSonne.Left:=ImSonne.Left +4; //Sonne nach rechts Verschieben
ImSonne.Top:=ImSonne.Top - TopAdd; //Sonne nach oben oder unter verschieben					

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

procedure TFTagNacht.TiTagNachtTimer(Sender: TObject);               //Timer Prozedur für Tag/Nacht Wechsel
begin
If         (ImSonne.Left = ImSonne.Left +-0)                         //Sonnenaufgang
Then begin ImSonne.Left := ImSonne.Left +4;                          //Sonne nach rechts Verschieben
           ImSonne.Top:=ImSonne.Top -2;                              //Sonne nach oben verschieben
     end;
If         ImSonne.Left < Width then TopAdd := -2 else TopAdd := 2;//Bildschirmmitte erreicht ? grob genähert fehlt imgsonne.width div 2
           ImSonne.Left:=ImSonne.Left +4;                            //Sonne nach rechts verschieben
           ImSonne.Top:=ImSonne.Top +2;                              //Sonne nach unten verschieben
     end;					

1:

if (ImSonne.Left = ImSonne.Left +-0)					

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:
31:
32:
33:
34:
35:
36:
37:

procedure TForm2.FormCreate(Sender: TObject);
begin
    Mond.Visible := false;
    Mond.Left := 0;
    Sonne.Left :=0;
    Mond.Top := Clientheight;
    Sonne.Top := Clientheight;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   if Sonne.Visible then
      begin
        Sonne.Left := Sonne.Left + 4;
        if Sonne.Left>Clientwidth/2 then Sonne.Top := Sonne.Top + 2
        else Sonne.Top := Sonne.Top - 2;
        if Sonne.Left>=ClientWidth then
            begin
              Sonne.Visible := false;
              Sonne.Left := 0;
              Mond.Visible := true;
            end;
      end;
    if Mond.Visible then
      begin
        Mond.Left := Mond.Left + 4;
        if Mond.Left>Clientwidth/2 then Mond.Top := Mond.Top + 2
        else Mond.Top := Mond.Top - 2;
        if Mond.Left>=ClientWidth then
            begin
              Mond.Visible := false;
              Mond.Left := 0;
              Sonne.Visible := true;
            end;
      end;

end;