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

[Agmcz]

بعد إذن أخي S.FATEH
إستعمال and لتفادي تحقق من كل مكون لحاله

كود :

if (Edit1.Color = clBlue) and (Edit2.Color = clBlue) and (Edit3.Color = clBlue) and (Edit4.Color = clBlue) and (Edit5.Color = clBlue) then Label1.Font.Color := clGreen else Label1.Font.Color := clRed;