我用Ｄ使Ｅｘｅｃｌ添加一个ｓｈｅｅｔ，(100分)

我用Ｄ使Ｅｘｅｃｌ添加一个ｓｈｅｅｔ，但是使用　xlsapp.WorkSheets.add都是添加在其他
ｓｈｅｅｔ的上面也就是说索引的值是变成了１，有什么办法使每次添加的ｓｈｅｅｔ都按
顺序添加在后面[]

procedure TForm1.FormCreate(Sender: TObject);
var Excel,WrkBook,WrkSheetlevariant;
begin
Excel:=CreateOleobject('Excel.Application');
WrkBook:=Excel.WorkBooks.Add;
WrkSheet:=WrkBook.WorkSheets[WrkBook.WorkSheets.Count];
WrkBook.WorkSheets.Add(emptyparam,WrkSheet,1,$FFFFEFB9);
Excel.visible:=true;
end;

接受答案了.