Length = 0 ..

Call Max Items ( I, 'T' : 
                          T = I.Title
               ) 
               ( R, K :
                        Length = StrLen( R.Title )
               )