procedure TForm1.Timer1Timer(Sender: TObject);
var hour,min,sec,msec: Word;
begin
// ######## Das Folgende ist nur ein vereinfachter Test mit 2 Zuständen####
//Pendel
DecodeTime(Now,hour,min,sec,msec);
  Canvas.Pen.Width := 6;
  Canvas.Pen.Color := clBlack;
     if sec mod 2 = 1 then
       begin
          Canvas.Moveto(139, 215);
          Canvas.LineTo(157,348);
          Canvas.Ellipse(132,348,182,398);
          Canvas.Pen.Color:= clWhite;
          Canvas.Moveto(129, 215);
          Canvas.LineTo(112,348);
          Canvas.Ellipse(87,348,137,398);

       end
     else
       begin
         Canvas.Moveto(129, 215);
         Canvas.LineTo(112,348);
         Canvas.Ellipse(87,348,137,398);
         Canvas.Pen.Color:= clWhite;
         Canvas.Moveto(139, 215);
         Canvas.LineTo(157,348);
         Canvas.Ellipse(132,348,182,398);

       end;
end;