Перегрузка опратора xor

[sobee]

Перевожу из Delphi в Lazarus очень нужный пакет по работе с dbf и встретился такой код:

Код: Выделить всё


type

  TGostN = packed record
    N1: LongWord;
    N2: LongWord;
  end;
  pGostN = ^TGostN;

  TGostNB = array [0..7] of Byte;
  pGostNB = ^TGostNB;
...

var
  i, j: Integer;
  c: pChar;
  Gamma0: TGostN;
begin
...

Byte(c[i]) := Byte(c[i]) xor pGostNB(@Gamma0)[j];
...
end;



Компилятор выдает следующее сообщение:
\...\VKDBFGostCrypt.pas(490,30) Error: Operator is not overloaded

Как можно обойти эти грабли? За раннее благодарю.
---------------------------
Windows XP/Mondriva 2007 Spring PP
Lazarus 0.9.24 (Win32)

[B4rr4cuda]

Код: Выделить всё

Byte(c[i]) := Byte(c[i]) xor TGostNB(Gamma0)[j];

Так лучше?