Почему нет AV?

Type
  /// <summary>
  ///  Поток для нумирации строк
  ///  Обращается к одной ячейки памяти таблицы
  /// </summary>
  TSGHreadNumbering = class(TTHread)
    private
    FPointSG: Pointer;
    FExit   : boolean;
    public
      procedure ExitHread;
      procedure execute; override;
      Property  PointSG : Pointer read FPointSG write FPointSG;
 
  end;

{ TSGHreadNumbering }
 
procedure TSGHreadNumbering.execute;
var
 i_sg : integer;
 sg   : TStringGrid;
 rowsC: integer;
begin
 sg   := Pointer(FPointSG^);
  while FExit = false do
  begin
    if sg <> nil then
      for i_sg := sg.FixedRows to sg.RowCount -1 do
      begin
        sg.cells[0, i_sg] := i_sg.ToString;
      end;
    sleep(20);
  end;
end;

var
procedure TMainForm.FormCreate(Sender: TObject);
var
  h : TSGHreadNumbering;
begin
  h := TSGHreadNumbering.Create(true);
  h.Priority := tpLowest;
  h.PointSG := @SG;
  h.FreeOnTerminate := true;
  h.Resume;
end;