FastReport 3.0控件小问题？？？？搞死人了

procedure TDZ_Form.frxReport2BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
  s,s1:string;
begin
 if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);
    Cross.CellMemos[0].Width:=800;
    JSADOQuery.First;
    i := 0;
    if Cross.Report.Pages[0] = frxReport2.Pages[0] then
    begin
    while not JSADOQuery.Eof do
    begin
      for j := 0 to DBGrid1.FieldCount - 1 do
      begin
       s:=trim(DBGrid1.Columns.Items[j].Title.Caption);
       case j of
        0: s1:=s;
        1: s1:='计算'+#13+'单位';
        2: s1:=s;
        3: s1:='实际考'+#13+'核数值';
        4: s1:='实际考'+#13+'核得分';
        5: s1:='实际考'+#13+'核扣分';
        6: s1:=s;
        7: s1:=s;
        8: s1:=s;
       end;
       Cross.AddValue([i],[s1],[JSADOQuery.FieldByName(s).AsString]);
      end;
      JSADOQuery.Next;
      Inc(i);
    end;
   end;
  end;
end;
上面的代码用来打印表中的数据，怎么设置第一列的宽度！
用的是FastReport 3.0控件