Fórum Erro ao acessar Stringgrid #340107

Ao acessar um stringgrid tenho o erro de acess violation
O código é o seguinte (a parte em negrito é onde da o erro), no form create coloquei isso stringgrid1.RowCount:= 2 quando vou popular o grid é este codigo a baixo:

i:=1;
id:=´´;
while not frmdatamodule.qryGeral.Eof do
begin
id:= frmDataModule.qryGeral.FieldValues[´id_fornecedor´];
id:= StringReplace(id,´.´,´´,[rfReplaceAll]);
id:= StringReplace(id,´-´,´´,[rfReplaceAll]);
id:= StringReplace(id,´/´,´´,[rfReplaceAll]);
LeRegistroPorChavePrimaria(strnew(´fornec01´),strnew(pchar(id)),@fornec01);
[b:de2c54825c]stringgrid1.Cells[1,i]:= picture(fornec01.a017cgc,´99.999.999/9999-99´);[/b:de2c54825c]
stringgrid1.Cells[2,i]:= fornec01.a017nom;
stringgrid1.RowCount:= stringgrid1.RowCount +1;
i:=i+1;
frmdatamodule.qryGeral.Next;
end;