RichEdit.SelAttributes.Color := TypeAndColor.Color; 
RichEdit.Lines.Add(TypeAndColor.StrData + str); 
PostMessage(RichEdit.Handle, WM_VSCROLL, SB_BOTTOM, 0);