如何在报表中设置字体的颜色

在数据库中数据有很多数值,要把数值是1的字段值在报表中特殊表示(比如是粗体红色,或者)用的是memoview控件,是不是要写脚本语言?怎么写呢?
（1）：在onbeforeprint里面判断是不是＝1。   
  然后设置颜色就行了。
procedure   TForm1.frReport1BeforePrint(Memo:   TStringList;   View:   TfrView);   
  begin   
      if   (View.Name='Memo1')and(View   is     TfrMemoView)   then   
              if   ADOTable1.Fields[0].AsString   ='1'   then     //这里好像不行，你自己改吧。   
                    TfrMemoView(View).Font.Color   :=     clRed;   
  end;
（2）：设置两个MEMO，   一个是加粗红色字体的如   MEMO1，   另一个普通MEMO2   
   
  if   DataSet["字段名"]='1'   then   
  begin   
      Memo1.Visible   :=   True;   
      Memo2.Visible   :=   False;   
  end     
  else   begin   
      Memo1.Visible   :=   False;   
      Memo2.Visible   :=   True;   
  end;   
  第二种方法不是太好，但一定可行，   
  第二种方法没有具体调试，应该也行