Delphi: Иерархия модулей.

[Eminem]

Доброго времени суток.

Возможно ли не копипастить кучу нужных модулей в Uses, а забить их в один и вызывать только его?

Набросаю в краце и поясню.
Есть модуль Modul1.pas

unit Modul1;

interface

Uses Windows, SysUtils, Math;

Type
 TBinary = String;

Function HexToInt(HexValue:String):Integer;

implementation

Function IntToBin(Int:integer):TBinary;
var Ost:string;
begin
if int < 1 then
 Result:=inttostr(int)
else
 while int > 1 do
  begin
   ost:=inttostr(int mod 2)+ost;
   int:=int div 2;
  end;
Result:=inttostr(int)+ost;
end;

end.

И модуль Modul2.pas

unit Modul2;

interface

Uses Windows, SysUtils;

Function StrToChr(Symbol:string):integer;

implementation

Function StrToChr(Symbol:string):integer;
var i:integer;
begin
result:=-1;
for i:=0 to 255 do
if chr(i)=Symbol then result:=i;
end;

end.

В главном проекте придётся писать:
Uses Modul1, Modul2;

Как их запихнуть в (например) Modul.pas и писать только:
Uses Modul;

P.S. разумеется в Modul1, Modul2 куда больше функций и классов и соединять их в один файл (проверено временем) не есть гуд.

Пробовал писать так:

unit Modul;

interface

Uses Windows, SysUtils, Modul1, Modul2;     

Function HexToInt(HexValue:String):Integer;
Function StrToChr(Symbol:string):integer;

implementation

end.

А в главном проекте только:
Uses Modul;

Ругается на "Modul":
[Error] Modul.pas(7): Unsatisfied forward or external declaration: 'HexToInt'

Может какие директивы существуют?

[alexBlack]

Если речь о делении большого модуля на части, то можно так:

unit modul;
interface

uses windows, sysutils;

{$define interface}
{$include modul1.pas}
{$include modul2.pas}
{$undef interface}

implementation

{$define implementation}
{$include modul1.pas}
{$include modul2.pas}
{$undef implementation}

end.

//modul1.pas
{$ifdef interface}
Type
 TBinary = String;

Function HexToInt(HexValue:String):Integer;
{$endif}
{$ifdef implementation}
Function HexToInt(HexValue:String):Integer;
begin
   //...
end;
{$endif}

//modul2.pas
{$ifdef interface}
Function StrToChr(Symbol:string):integer;
{$endif}
{$ifdef implementation}
Function StrToChr(Symbol:string):integer;
begin
   // ...
end;
{$endif}

[Eminem]

Да, то что нужно, благодарю.