Ошибка Invalid Pointer при выполнении программы

type
  TDotName=string[2];
  TDot=record
    x,y: integer;
    Name:TDotName;
  end;
  TDots=array of TDot;
  TLns=record
    D1,D2:TDot;
    Weight:word;
  end;
  TLines=array of TLns;
  TSubGraph=record
    V:TDots;
    E:TLines;
  end;
 
var
  CompSubs:array of TSubGraph; {массив компонент}
  SelSubIndex:integer; {соответственно индекс}
 
procedure TForm1.tbCompClick(Sender: TObject); {кнопка}
begin
  if Dots=nil then Exit;
  FindComponents;
end;
 
Procedure FindComponents;
var
  i,p,c,Beg:integer;
  Was:array of boolean; {массив пройденных-непройденных вершин}
  ans:string; {ответ для вывода}
 
procedure GoDepth(n:integer;var Sub: TSubGraph);
{обходом в глубину}
var
  i,j,ln:integer;
  a:array of integer; {номера уже включенных в массив компонент ребер}
  ok:boolean;
begin
  c:=c+1;
  Was[n]:=true;
  ok:=true;
  with Sub,Form1 do
  begin
    SetLength(V,length(V)+1);
    V[high(V)]:=dots[n]; {вершину в массив компонент}
    if length(v)>1 then
      for i:=n-1 downto 0 do
        begin
          ln:=FindLineNum(n,i); {ищу ребро инцидентное 2-м вершинам}
          for j:=0 to length(a)-1 do {чтоб ребра не повторялись}
            if ln=a then
              ok:=false;
          if (ln>=0)and(ok) then {ребро в массив компонент}
            begin
              setlength(a,length(a)+1);
              a[high(a)]:=ln;
              SetLength(E,length(E)+1);
              E[high(E)]:=lns[ln];
            end;
        end;
  end;
  with Form1.Matrix2 do
    for i:=0 to RowCount-1 do
      if (Cells[n,i]='1')and not(Was) then
        GoDepth(i,Sub);
end;
 
begin {FindComponents}
  p:=0;
  Beg:=0;
  CompSubs:=nil;
  SetLength(Was,length(dots));
  for i:=0 to length(was) do
    Was:=false;
  c:=0;
  SetLength(CompSubs,p+1);
  GoDepth(Beg,Compsubs);
  while c<length(dots) do
    begin
      i:=0;
        while not (Was=false) do
          i:=i+1;
        Beg:=i;
        p:=p+1;
        SetLength(CompSubs,p+1);
        GoDepth(Beg,Compsubs);
    end;
  ans:='Число компонент связности: '+inttostr(p+1);
  Form1.StatusBar1.Panels[9].Text:=ans;
  ShowMessage(ans+#13+'Для выделения других компонент нажмите [+], [-]');
  SelSubIndex:=0;
  Form1.SelectSubGraph(CompSubs[0]); {выделяет подграф}
end;
 
procedure TForm1.SelectSubGraph(G:TSubGraph);
var
  i:integer;
begin
  with G do
    begin
      for i:=0 to length(E)-1 do
        SelectLine(E); {ну а там чисто канва}
      for i:=0 to length(V)-1 do
        SelectDot(V); {ну а там чисто канва}
    end;
end;