Membuat Warna Trafik pada Project

Screenshoot :buat 2 shape pada projecttambahkan code di bawah pada typeCode:typeProcedure LedBlinkUpload;Procedure LedBlinkDownload;buat procedure pada projectCode:procedure TForm1.LedBlinkUpload;beginshape1.Refresh;if shape1.brush.color=clSilver thenbegin  shape1.brush.color:=$0007F513;end elsebegin  shape1.brush.color:=clSilver;end;end;procedure TForm1.LedBlinkDownload;beginshape2.Refresh;if