Delphi de Excele Veri Aktarımı

procedure TOGRENCILISTESI.BitBtn3Click(Sender: TObject);
var
aralik:ExcelRange;
I,satir:integer;
bookmark:TBookmarkStr;
begin
//Excel Uygulaması oluşturma
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Workbooks.Add(null,0);

//Hücreleri doldur
aralik:=ExcelApplication1.ActiveCell;
for I:=0 to Table1.Fields.Count-1 do
begin
aralik.Value2:=Table1.Fields.DisplayLabel;
aralik:=aralik.Next;
end;

//Alanları Satırlara ekle
try
bookmark:=Table1.Bookmark;
try
Table1.First;
satir:=3; //3.satırdan itibaren
while not Table1.Eof do
begin
aralik:=ExcelApplication1.Range['A'+IntToStr(satir),'A'+Inttostr(satir)];
for I:=0 to table1.Fields.Count-1 do
begin
aralik.Value2:=table1.Fields.AsString;
aralik:=aralik.Next;
end;
table1.Next;
Inc(satir);
end;
finally
table1.Bookmark:=bookmark;
end;
finally
end;
end;