Brauche Hilfe zu Threads

[Oldjoe37]

Timer2 sieht jetzt so aus:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var Now,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);
        end
        else
        begin
                Canvas.Moveto(129, 215);
              Canvas.LineTo(112,348);
                Canvas.Ellipse(87,348,137,398);
        end;
end;