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

  DecodeTime(Now,nowH,nowM,nowS,dummy); // Zeit in Variablen Speichern (dummy -> millisekunden)

  rad := Width div 2; // radius auf die hälfte der Breite setzen

  anteilS := 360-(nowS*(360/60)-90); // jede Sekunde um ein 60stel von 360 weitergehen... (-90 weil 0 rechts ist und 360- weil sonst falschrum)
  zeigerS.x := round(cos(anteilS)*rad); // cos ist der relative x wert
  zeigerS.y := round(sin(anteilS)*rad); //  sin ist der relative y wert

  Canvas.TextOut(0,0,'Sekunden: '+(Inttostr(nows))+' -- Grad:'+Floattostr(anteils));  // Sekunden und Gradzahl ausgeben (nur debugging)

  Canvas.MoveTo(Width div 2, Height div 2); // Von Mitte aus...
  Canvas.LineTo(Width div 2+zeigerS.x, Height div 2+zeigerS.y); // zu dem Punkt zeichnen					

1:

var DBuffer: TBitmap;					

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

  DBuffer := TBitmap.Create;
  DBuffer.Width := Width;
  DBuffer.Height := Height;

  with DBuffer do begin
  //... gleiche Anweisungen
  end;
  Canvas.Draw(0,0,DBuffer);
  DBuffer.free;