كيف اغير اللون كل ثانية باستخدام مكون Timer

[M_Mori2010]

السلآم عليكم ورحمة الله وبركاته
كيف استعمل تايمر اذا كان المراد في الثانية الاولى يقوم بتعديل لون ال Edit من ابيض الى اصفر
وفي الثانية التالية يقوم بتعديل اللون من اصفر الى ابيض ويبقى هكذا حتى اغلق البرنامج بدون توقف
وجزاكم الله كل خير

[virtual]

حدد مجال التايمر ب 1 ثانية
انشىء متغير من نوع boolean مثلا b_changeColor

في دالة التايمر اكتب

b_changeColor := not b_changeColor

if b_changeColor then
لون edit بالاصفر
else
لون edit بالابيض