[delphi] Bład w TAdvColumnGrid

Witam. Kod dość oczywisty i zrozumiały, jednak błąd który otrzymuje po uruchomieniu programu jest nazwijmy to niespodziewany. Mianowicie "Access Violation at xxx....". Fgrid oczywiscie <> nil poniewaz pierwszy ShowMessage wyświetlany jest bez problemu. Problem pojawia sie dopiero w pętli for. Czy jest ktoś w stanie pomóc mi w wyjaśnieniu co robię źle?

function TframeRealizationClientFind.GetEmailsInString(FGrid : TAdvColumnGrid): string;
var
   s     : string;
   i,N   : integer;
   state : boolean;
   count : integer;
begin
   N := FGrid.RowCount;
   count := 0;
   
   ShowMessage('W tabeli znajduje sie '+inttostr(N)+' wierszy');

   for i:=1 to N-1 do
   begin
     if FGrid.GetCheckBoxState(0,i,state) then
     begin
       if state then
       begin
         count := count + 1;
       end;
     end;
   end;
   
   ShowMessage('Naliczono '+inttostr(count)+' elementow zaznaczonych');
end;