[Bargest]

Не вижу, где что подчёркнуто.
В Delphi вместо названия функции для результата надо использовать Result. Пример:

Код:

 // вместо
Encode := ij[i+1,j]
 // сделать
Result := ij[i+1,j]