Voici un petit exemple;

code de l'unité n°2


Unit Unit2;
interface

function Func_Unit2:Boolean;