Hola,
En principio, nada te impide añadir una nueva unidad en tu proyecto, que, por supuesto habrías de incluir (en alguna de las cláusulas "uses") en las unidades donde quisieras utilizarla. En la nueva unidad implementarías el procedimiento en cuestión, y, este quedaría disponible para cualquiera que hubiera incluido la unidad correspondiente.
Por ejemplo:
Código Delphi
[-]
unit MyUnit;
interface
procedure Foo();
implementation
procedure Foo();
begin
end;
end.
Añadiendo la unidad "MyUnit" en cualquier otra unidad, ya podrías utilizar el procedimiento "Foo()" que se implementa en la misma.