колличество строк в таблице

procedure DUAll;
var
NxTextColumn: TNxTextColumn;
JSONObject, JSONObjProp: TJSONObject;
JSONString: TJSONString;
JsonArray, JsonArrayCoord: TJSONArray;
i:integer;
begin
  try
    if http.Status() = 200 then
      begin
        JSONObject:=TJSONObject(TJSONObject.ParseJSONValue(http.responsetext));
          if JSONObject <> nil then begin
            JSONString:=TJSONString(JSONObject.GetPairByName('success').JsonValue);
              if Pos('not session', JSONString.Value) > 0  then begin
                timerAu.Enabled:=False;
                frmAdmin.bAutorization.Caption:='Ошибка авторизации'; end else
                  if Pos('1', JSONString.Value) > 0  then begin
                    JSONString:=TJSONString(JSONObject.GetPairByName('days').JsonValue);
                    frmAdmin.bDays.Caption:='Осталось '+JSONString.Value+' дней';

                    frmAdmin.tgUserApp.Columns.Clear;
                      try
                        frmAdmin.tgUserApp.Columns.Add(TNxTextColumn);
                      except
                      end;
                      try
                        frmAdmin.tgUserApp.Columns.Add(TNxTextColumn);
                      except
                      end;
                      try
                        frmAdmin.tgUserApp.Columns.Add(TNxTextColumn);
                      except
                      end;
                      try
                        frmAdmin.tgUserApp.Columns.Add(TNxTextColumn);
                      except
                      end;

                    frmAdmin.tgUserApp.Columns[0].Color := clWhite;
                    frmAdmin.tgUserApp.Columns[1].Color := clWhite;
                    frmAdmin.tgUserApp.Columns[2].Color := clWhite;
                    frmAdmin.tgUserApp.Columns[3].Color := clWhite;
                    frmAdmin.tgUserApp.AddRow(6);//колличесво строк

                    JsonArray:=TJSONArray(JSONObject.GetPairByName('products').JsonValue);
                      for i := 0 to JsonArray.Size-1  do begin
                        JSONObjProp := TJSONObject( TJSONObject(JsonArray.Get(i)));
                        JSONString := TJSONString(JSONObjProp.GetPairByName('password').JsonValue);
                        frmAdmin.tgUserApp.Cells[0,i] := JSONString.Value;
                      end;
                    timerAu.Enabled:=False;
                 end;
               end;
             end;
        except

    end;
end;

for i := 0 to JsonArray.Size-1  do begin
                        frmAdmin.tgUserApp.AddRow(i+1);