Runtime error 216

procedure PrintWord(Tr, Td, NChar,NWord:integer; Vert:boolean;  Word:string); 
var i : integer;
    Top,Left : integer; //Расположение панелей сверху, слева
begin
  Top:=Tr*30; Left:=Td*30;
  if Vert then begin
    for i:=0 to NChar-1 do begin  //NChar - кол-во панелей
      PazzleArray[i,Td]:=TPanel.Create(FormPazzle);
      PazzleArray[i,Td].Width:=30;
      PazzleArray[i,Td].Height:=30;
      PazzleArray[i,Td].Top:=Top;
      PazzleArray[i,Td].Left:=Left;
      PazzleArray[i,Td].Tag:=(Tr+i)*100+Td;
      PazzleArray[i,Td].Font.Size:=12;
      PazzleArray[i,Td].Font.Style:=[fsBold];
      PazzleArray[i,Td].Parent:=FormPazzle;
      PazzleArray[i,Td].Color:=clBtnHighlight;
      Top:=Top+30;
    end;
  end
  else begin
    for i:=0 to NChar-1 do begin
      PazzleArray[Tr,i]:=TPanel.Create(FormPazzle);
      PazzleArray[Tr,i].Width:=30;
      PazzleArray[Tr,i].Height:=30;
      PazzleArray[Tr,i].Top:=Top;
      PazzleArray[Tr,i].Left:=Left;
      PazzleArray[Tr,i].Tag:=Tr*100+Td+i;
      PazzleArray[Tr,i].Font.Size:=12;
      PazzleArray[Tr,i].Font.Style:=[fsBold];
      PazzleArray[Tr,i].Parent:=FormPazzle;
      PazzleArray[Tr,i].Color:=clBtnHighlight;
      Left:=Left+30;
    end;
  end;
end;

procedure TFormPazzle.FormCreate(Sender: TObject);
begin
  PrintWord(5, 5, 8,1,true,'12345678');
  PrintWord(8, 2, 8,1,false,'12345678');
end;