搜尋list index out of bounds delphi

搜尋list index out of bounds delphi