delphi操作excel怎样插入一个可选的列？解决方法

delphi操作excel怎样插入一个可选的列？
delphi操作excel怎样插入一个可选的列？
var
  ExcelApp,WorkBook:Variant;
  i,j:integer;
begin
  ExcelApp:=CreateOleObject('Excel.Application');
  ExcelApp.WorkBooks.Add;
  WorkBook:=ExcelApp.WorkBooks.Open(D:\a.xls);
  ExcelApp.ActiveSheet.Columns[2].Insert;
  ExcelApp.Cells[1,2].Value := '性别';　
end;
以上的代码插入的列是不可选的，怎样插入一个可选的列？下面可以选男或者女？

------解决方案--------------------
ExcelApp.ActiveSheet.Columns[2].Validation.add(xlValidateList,xlValidAlertStop, xlBetween,
'男,女') ;
加上这句应该就可以了，试试