Exportando relatorios para o Excel com delphi

Ola Galera
Alguem poderia me ajudar.
O que ha de errado no codigo abaixo , se no meu select eu trouxer somente 3 registros da tudo certo se for mais de 3 list index out of bounds (3)
Desde já agradeço



procedure TForm1.ExportaExcel(dataset: tdataset);
var
J, I: Integer;
MsExcel: Variant;
begin
MsExcel := CreateOleObject(Excel.Application);
MsExcel.workbooks.add;

for I := 0 to dataset.Fields.Count - 1 do
begin
MsExcel.Activesheet.cells[1, I + 1].value := dataset.Fields[I].DisplayLabel;
MsExcel.Activesheet.cells[1, I + 1].font.bold := true;
MsExcel.Activesheet.cells[1, I + 1].interior.color := ColorToRGB(clYellow);
MsExcel.Activesheet.cells[1, I + 1].borders.linestyle := 1;

end;
dataset.First;
for J := 0 to dataset.RecordCount - 1 do
begin
for I := 0 to dataset.RecordCount - 1 do
begin
MsExcel.Activesheet.cells[j + 2, i + 1].value := dataset.Fields[I].AsString;
MsExcel.Activesheet.cells[j + 2, i + 1].interior.color := ColorToRGB(clInfoBk);

end;
dataset.Next;

end;

MsExcel.Visible := true;

end;