Синхронизация потоков через механизм событий(delphi)

[darlin]

Помогите пожалуйста с программой в delphi (Доделать)

1.Дополнить программу визуальным эффектом, сигнализирующим о прекращении активной фазы работы программы.

2 Составить программу в которой выполняются две процедуры, выполняющие разные операции над однотипными числами (см. таблицу). Системный тайемер выделяет каждой процедуре по 500 мс времени. После прекращения работы процедур необходимо определить количество операций, выполненное каждой процедурой.

Тип чисел 1-я процедура 2-я процедура

Integer сложение умножение

Real сложение умножение

Real сложение деление

Double сложение умножение

Double умножение деление