请教一个简单的问题

Question

为什么这段程序会有错误：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj;type
  TForm1 = class(TForm)
    Bt1: TButton;
    procedure Bt1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Bt1Click(Sender: TObject);
var
v,sheet:variant;
 i:integer;
begin
    v:=createoleobject('Excel.Application');
    v.visible:=true;
    v.workbooks.add(-4167);
    v.workbooks[1].sheets[1].name:='test';
    sheet:= v.workbooks[1].sheets['test'] ;     for I := 0 to 7 do
        begin
    sheet.cells[i,8]:=8; //导入数据
    end;;end;end.

Answer 1

for I := 0 to 7 do
        begin
    sheet.cells[i,8]:=8; //导入数据
    end;
sheet 要从 1行开始。也就是:   for I:=1 to 7 do
                                .......
                                .......