Delphi导出问题

xlsApp := CreateOleObject('Excel.Application');
  xlsApp.WorkBooks.add;
  xlsApp.Visible := false;
  xlsApp.WorkSheets[1].Activate;
  xlsApp.WorkSheets[1].PageSetup.PaperSize := 14;   //A4
  xlsApp.WorkSheets[1].PageSetup.Orientation := 2; //横向
  xlsApp.WorkSheets[1].PageSetup.LeftMargin := 30;
  xlsApp.WorkSheets[1].PageSetup.RightMargin := 0;
  xlsApp.WorkSheets[1].PageSetup.TopMargin := 30;
  xlsApp.WorkSheets[1].PageSetup.BottomMargin := 10;
  xlsApp.WorkSheets[1].PageSetup.HeaderMargin := 0;
  xlsApp.WorkSheets[1].PageSetup.FooterMargin := 0;
  xlsApp.WorkSheets[1].PageSetup.PrintTitleRows := '$1:$5';
  xlsApp.WorkSheets[1].PageSetup.LeftFooter := '备注:如果是正常工单订料在正常“□”内打“√”，※非正常工单或提前定料、补单等情况下请在个栏“□”内大“√”。(塑胶原来栏位不足10KG按10KG计算)' + Chr(10) + '批准:' + Chr(10) + 'HOME CULTURE';
  xlsApp.WorkSheets[1].PageSetup.CenterFooter := '审核 :                          货仓部: ' + Chr(10) + '第 &P 页，共 &N 页';
  xlsApp.WorkSheets[1].PageSetup.RightFooter := '制表:' + cmbEmp.Text + Chr(10) + 'WF-PMC-017-A0保存期限三年';
  adsMaster.First;
  i := 5;这是设置页脚。。但是我不知道怎么设置字体大小。。没怎么接触过Delphi  谁告诉我下