Si je me souviens bien (c´est loin tout ça), s´il n´y en a pas, tu peux créer une zone "public" dans l´unité, et y placer tes procédures et fonctions de la manière suivante :
Unit mon_unite;
Interface
Uses windows, messages, ...;
Type
TMyUnit = Class(Object)
Private
{ Déclarations privées }
procedure ma_procedure_privee;
public
{ Déclarations publiques }
procedure ma_procedure_publique;
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMyUnit.ma_procedure_publique;
begin
{contenu}
end;
procedure TMyUnit.ma_procedure_privee;
begin
end;
End.
Je ne suis pas certain du résultat, j´ai fait ça de tête sans vérifier si ça fonctionne.