كيف أترجم هذا الى لغة برمجة

[Ramzi2]

كيف أترجم هذا الى لغة برمجة

إذا كان خلفية لون edit5 و edit4 و edit3 و edit2 و edit1 أزرق

أكتب باللون الاخضر label 'صحيح '

والا اكتب

label باللون الاحمر 'خطأ'

يجب تحقق الشرط بلون خلفيات جميع اديت الى الازرق

ادا كانت لون اديت واحد غير الازرق لا يتحقق الشرط خطا

محاولتي ....

كود :

if Edit1.Color := clBlue then if Edit2.Color := clBlue then if Edit3.Color := clBlue then if Edit4.Color := clBlue then begin Label1.Caption:='OK'; Label1.Font.Color := clGreen; end else begin Label1.Caption:='NO'; Label1.Font.Color := clRed;