procedure TForm1.Button1Click(Sender: TObject);
var
v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}
i,d:integer;
r:variant;
begin
v:=createoleobject('excel.application');//exceli yarat
v.workbooks.add;
sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
r:=v.activeworkbook.worksheets[1].cells[1]; // Burası Çok önemli
i:=0;
d:=0;
while Not Table1.eof do
begin
i:=i+1;
d:=d+1;
r.cells[1+d,i]:=Table1.FieldByName('NAME').AsString;
r.cells[1+d,i+1]:=Table1.FieldByName('SIZE').AsString;
Table1.Next;
i:=0;
end;
v.visible:=true;//Exceli acip verileri
end;