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