

ou 
if ((InDetect1 = 0) and (InDetect2 = 0)) then
begin
OutLed1 := bBlink;
OutLed2 := 0;
end
else if ((InDetect1 = 1) and (InDetect2 = 0)) then
begin
OutLed1 := 1;
OutLed2 := 0;
end
else if ((InDetect1 = 0) and (InDetect2 = 1)) then
begin
OutLed1 := 0;
OutLed2 := bBlink;
end
else if ((InDetect1 = 1) and (InDetect2 = 1)) then
begin
OutLed1 := 1;
OutLed2 := 1;
end;