Есть вопрос по часам с кукушкой

[Евгений_А]

Значится так, при реализации часов с кукушкой(Pascal) возникла проблема.
вот код таймера по которому при наступлении нового часа активируется таймер кукушки и присвоение переменной kuk значения часа, для того что бы кукушка знала сколько ей кукукать
procedure TForm1.Timer1Timer(Sender: TObject);
begin

DrawArrows(ClWhite);
DecodeTime(Time, Hour, min, sec, msec);
HourAngle:=(Hour mod 12) / 12 *(2*pi);
MinAngle:=min / 60 * (2* Pi);
SecAngle:=sec/ 60 *(2*pi);
DrawArrows(clRed);
if (min=0)and(sec=0) then
begin
duc:=hour;
kuk:=duc;
Timer3.Enabled:=true;
tic:=0;

end;
но кукушка не кукукает

[Serge_Bliznykov]

жуткий код..
не могу понять, у Вас в срабатывании кукушки стоит

    
    st:=st+1;
    if st = 270 then

изначально st нигде не присваивается, что это за переменная?! Для чего она?

[Serge_Bliznykov]

чуток переработал ваш проект.
вот переделанная форма Unit1: unit1kukushka.rar

[Евгений_А]

Сообщение от Serge_Bliznykov

жуткий код..
не могу понять, у Вас в срабатывании кукушки стоит

изначально st нигде не присваивается, что это за переменная?! Для чего она?

Это у меня была переменная отслеживающая перемещение шэйпа

[Евгений_А]

Сообщение от Serge_Bliznykov

чуток переработал ваш проект.
вот переделанная форма Unit1: Вложение 66965

Спасибо большое за редактирование)

[Serge_Bliznykov]

Сообщение от Евгений_А

Спасибо большое за редактирование)

не за что!
Если возникнут вопросы по измененному коду - welcome!