IntToByte
Funkcja zamienia wartość integer na byte.
function IntToByte(i:Integer):Byte; begin if i > 255 then Result := 255 else if i < 0 then Result := 0 else Result := i; end;