정말 제 생각에 RichEdit버그라 생각되온데

아무도 답변이 없어서 다시 질문 드립니다.

문제는  생산실적이 미달되면 검은 메세지가 나타나고 불량이 발생하면

빨간메세지가 나타나야 하는데 잘 나오다가 한번씩 불량메세지가 검게

나타나는 경우가 발생합니다.

오죽하면 제가 한번 색깔을 주고 담번에 색깔을 비교해서 빨간색이 아니면

다시 빨간색으로 주게 했는데도 또 발생하는군요

소스는

If li_prod_data < li_prod then
    begin
        RichEdit2.SelAttributes.Color := clBlack;
        IF RichEdit2.SelAttributes.Color <> clBlack then
            Begin
               RichEdit2.SelAttributes.Color := clBlack;
               RichEdit2.Lines.Add(ls_time +' '+ls_line_name+ '라인 실적 미달'+ '('+inttostr(li_prod_data)+'/'+inttostr(li_prod)+')');
                SendMessage(RichEdit2.Handle, EM_SCROLLCARET, 0, 0);
             End
         ELSE
             Begin
               RichEdit2.Lines.Add(ls_time +' '+ls_line_name+ '라인 실적 미달'+ '('+inttostr(li_prod_data)+'/'+inttostr(li_prod)+')');
               SendMessage(RichEdit2.Handle, EM_SCROLLCARET, 0, 0);
             End;
    end;
If li_fail_data >= li_fail then
    begin
        RichEdit2.SelAttributes.Color := clRed;
        IF RichEdit2.SelAttributes.Color <> clRed then
            Begin
                RichEdit2.SelAttributes.Color := clRed;
                RichEdit2.Lines.Add(ls_time +' '+ls_line_name+ '불량 다량 발생'+ '('+inttostr(li_fail_data)+'/'+inttostr(li_fail)+')');
            End
        ELSE
            Begin
               RichEdit2.Lines.Add(ls_time +' '+ls_line_name+ '불량 다량 발생'+ '('+inttostr(li_fail_data)+'/'+inttostr(li_fail)+')');
            End;

밑에 부분은 조금 잘라버렸습니다.

아무튼 이런식으로 되어있구요

그런데도 잘 안되니 혹시 저와 같은 경험이 있으신분 또는 아시는분

답변 부탁드립니다.