delphi - モジュール usp10.dll 内のアドレスでの Delphi アクセス違反

Question

私のプログラムは完璧に動作します。フォームに別のボタンを追加するまで、エラーはまったくありません。

配列 [1..200] と並列に stringgrid があります。

削除ボタンがあります：

Procedure TForm1.DeleteTeam(TeamName: string);
var
  i : integer;
begin
  for i := 1 to TotalNumberOfTeams do
    begin
      if TeamName = SailingTeams[i].TeamName then
        begin
          sailingTeams[i].AvLapTime := 99999999;
          //puts one to delete with largest value to delete
          SortArray;
          //sorts it so it is at the end of array
          sailingTeams[TotalNumberOfTeams] := nil;
          TotalNumberOfTeams := TotalNumberOfTeams - 1;
          sortArray;
          UpdateGrid;
          Break;
        end;
    end;
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
var
  TeamName : string;
  continue : integer;
begin
  TeamName := (strGrid.Cells[0,(strGrid.Row)]);
  continue := MessageDlg('Are you sure you wish to delete: '+teamName+'?',mtWarning, mbYESNO, 0);
  if continue = mrYES then
    DeleteTeam(TeamName);
end;

ボタンを追加してクリックすると、削除をクリックするとエラーが発生します:S:S

24時間のちっぽけなレースのための単なるホームプロジェクトなので、アルゴリズムの効率などは重要ではありませんが、なぜこのエラーが発生するのかについてのアイデアはありますか?? :S