Delphi - URGENTE RUTINAS

Ese es el propósito de las Units. Crea una Unit (File -> New -> Unit) y escribe todos los procedimientos y funciones que van a ser comunes a todas las demás Units de tu proyecto. Luego cuando necesites usar uno de estos procedimientos o funciones agrega el nombre de la Unit a la clausula Uses correspondiente.

Pues con el nombre del procedimiento. Parece que no te quedó claro asi que te escribo un ejemplo.
Supongamos que necesitas un procedimiento que guarde lo que el usuario teclea en cada TEdit del proyecto. En ese caso tenderías una Unit donde está un form cualquiera
Unit Form_1;
interface
uses Windows, Messages, SysUtils { ... } ;
type
TForm1 = Class(TForm)
Edit1: TEdit;
{ ... }
end;
var
Form1: TForm1;
implementation
uses ComUtil;
{ ... }

procedure Edit1Exit(Sender: TObject);
begin
Guardar(Edit1.Text); // este es un procedimiento en la Unit ComUnit
end;
{ ... }

end. // Unit Form_1

El procedimiento Guardar() lo escribirías en una Unit que llamaremos ComUtil.
Unit ComUnil;
interface
Procedure Guardar(Linea: string); { se debe declarar el encabezado del procedimiento en esta sección para que sea visible desde fuera de la Unit }

implementation
uses SysUtils { ...lista de Units necesarias... } ;
Procedure Guardar(Linea: string);
var
T: Text;
begin
AssignFile(T,'lineas.txt');
if not FileExists('lineas.txt') then
begin
Rewrite(T); CloseFile(T);
end;
Append(T);
writeln(T, Linea);
CloseFile(T);
end; // Guardar

end. // Unit ComUtil