procedure setByte(offset : Integer; b : byte);

You should not use setByte() and getByte().

function getByte(offset : Integer): byte;


begin
    // your code
end;