//  CB := nil;
  for i := 0 to List.Count - 1 do
    if (List[i] is TfrxView) then
    begin
      if (TfrxView(List[i]).TagStr = 'c' + IntToStr(Sender.Tag)) then
      begin
        CB := TfrxCheckBoxView(List[i]);
        CB.CheckColor := clGreen;
        PreviewPages.ModifyObject(CB);
        Report.Preview.Invalidate;
        Break;
      end;
    end;
{  if CB <> nil then
  begin
    CB.CheckColor := clGreen;
    PreviewPages.ModifyObject(CB);;
  end;
  // refresh preview
  Report.Preview.Invalidate;}

    property BlockColor: TColor read FBlockColor write FBlockColor;
    property BlockFontColor: TColor read FBlockFontColor write FBlockFontColor;
    property Color;
    property CommentAttr: TFont read FCommentAttr write SetCommentAttr;
    property Font;
    property KeywordAttr: TFont read FKeywordAttr write SetKeywordAttr;
    property NumberAttr: TFont read FNumberAttr write SetNumberAttr;
    property StringAttr: TFont read FStringAttr write SetStringAttr;
    property TextAttr: TFont read FTextAttr write SetTextAttr;

procedure TfrxSyntaxMemo.DoCodeCompletion;
...
    FCompletionForm.SetBounds(p.X, p.Y, 300, 100);
    FCompletionForm.Show;           // показываем окно
    if FCompletionLB.Count = 0 then // если окно "пустое", то 
      CompletionClose;              // прячем
// зачем показывать ПУСТОЕ окно и тут же его прятать ?

// нужно так
    if FCompletionLB.Count > 0
     then FCompletionForm.Show
     else CompletionClose;