Экспорт из Delphi в Exel

[_-Ramzes-_]

Помогите пожалуйста с экспортом данных в Exel 2003 с экспортом в Exel 2007 получилось а в 2003 не работает
Вот код на 2007
procedure TForm1.OpenExelClick(Sender: TObject);
var
ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
BeginCol, BeginRow, i, j : integer;
RowCount, ColCount : integer;
begin

BeginCol := 1;
BeginRow := 5;

RowCount := DSNastavnik.DataSet.RecordCount+1;
ColCount := DSNastavnik.DataSet.RecordCount+1;

ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.Application.EnableEvents := false;
Workbook := ExcelApp.WorkBooks.Add;
ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

for I:=1 to DSNastavnik.DataSet.FieldCount do
begin
ArrayData[1,I] := DSNastavnik.DataSet.Fields.Fields[I-1].FieldName;
end;
DSNastavnik.DataSet.First;
for J := 2 to ColCount do
begin
for I:=1 to DSNastavnik.DataSet.FieldCount do
begin
ArrayData[J,I] := DSNastavnik.DataSet.Fields.Fields[I-1].Value;
end;
DSNastavnik.DataSet.Next();
end;
Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1, BeginCol +
ColCount - 1];
Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
Range.Value := ArrayData;
ExcelApp.Visible := true;
end;