Les Interfaces

type
  IToString = interface
    function ToString: string; 
  end;
 
  TMonObjet = class(..., IToString)
    function ToString: string; 
  end;
 
  TUnAutreObjet = class(..., IToString)
    function ToString: string;
  end;