[M.A.D.M.A.N.]

Код:

unit YouUnit;

interface

uses SysUtils;

function YouFunction(Value:Byte):Byte;

implementation

function YouFunction(Value:Byte):Byte;
begin
  result:=value;
end;

end.

Потом в своих юнитах просто в Uses пишеш имя этого модуля и в любой чати можеш смело кликать эту ф-ию