Use ComObj;
procedure TForm2.Button1Click(Sender: TObject);
var
  ExcelApp: Variant;
begin
   ExcelApp :=CreateOleObject( 'Excel.Application' );
   ExcelApp.Caption:='综合统计报表';
   ExcelApp.Visible:=True;end;
不知道还缺啥