if sgList.RowCount <= glRow + doc.ybGetCntTBRow(sgList.ibID) then
    sgList.RowCount := glRow + doc.ybGetCntTBRow(sgList.ibID) + 1;

    for i := 0 to doc.ybGetCntTBRow(sgList.ibId) -1 do 
    begin
     INC(glRow);
        doc.GetStrGridRowFromTable(sgList,glRow,i);
    end;   
end;