Excel

在把SQL数据导入EXCEL的程序中我用以下方法：
procedure TForm1.Button2Click(Sender: TObject);
var
  ExcelApp,MyWorkBook: Variant;
  i,j,k:integer;
  FileName:string;
  DlgSave:TsaveDialog;begin
Query1.Close ;
Query1.SQL.Clear ;
Query1.SQL.Add('SELECT * FROM testTable');
Query1.Open ;
  DlgSave:=TsaveDialog.Create(nil);
  DlgSave.Filter:='*.xls|*.xls';
  if DlgSave.Execute then
  begin
     application.ProcessMessages;     filename:=DlgSave.FileName;
     try
     ExcelApp := CreateOleObject( 'Excel.Application' );
     ExcelApp.Caption :='Excel-cms2002';
     MyWorkBook:=CreateOleobject('Excel.Sheet');
    except   application.Messagebox('无法打开Xls文件，请确认已 经安装EXCEL.','',   mb_OK+mb_IconStop);
   exit;   end;    MyworkBook:=ExcelApp.workBooks.Add() ;     application.ProcessMessages;
     ExcelApp.WorkSheets[1].Activate;     myworkbook.worksheets[1].name:='ABC';
    ......     ExcelApp.Columns.AutoFit;
     ExcelApp.ActiveWorkBook.SaveAs(FileName);
     ExcelApp.WorkBooks.Close;
     application.MessageBox('数据导出成....','数据导出',0);
     ExcelApp.Quit;
     DlgSave.Destroy;  end;
end;得到的EXCEL有ABC，sheet2,sheet3 三个工作表。现在我有两个问题：
1。 怎样才能使EXCEL只有一个ABC工作表？
2。我想把第一行的A-D合并，并且要“居中”各位帮帮忙好吗？