如何在報表中設定字型的顏色

在資料庫中資料有很多數值,要把數值是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;   
  第二種方法不是太好，但一定可行，   
  第二種方法沒有具體調試，應該也行