Delphi каскадное подключение модулей

unit Unit2;
 
interface
 
uses Unit3;
 
const helloWorld2 = helloWorld;
 
implementation
 
end.

unit Unit3;
 
interface
 
const
  helloWorld = 'hello world';
 
implementation
 
end.

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.StdCtrls ,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Unit2;
 
  {...}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(helloWolrd2); // это нормально
  ShowMessage(helloWolrd); // а вот это уже private :( не компилируется
end;
 
end.

unit Unit2;
 
 
interface
 
{$I Unit3.inc}
 
const helloWorld2 = helloWorld;
 
implementation
 
end.

const
  helloWorld = 'hello world';
 
type
  mytype = record
    value1 : Integer;
    value2 : Integer;
  end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.StdCtrls ,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Unit2;
 
{...}
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var z: mytype;
begin
  ShowMessage(helloWorld); // ok
  ShowMessage(helloWorld2);  // ok
end;
 
end.

unit GlobalUnit;
 
interface
 
uses unit1,unit2,unit3 ... unitN;
 
type
  type1 = unit1.type1;
  type2 = unit2.type2;
  type3 = unit3.type3;
 
// и тд

uses  unit1,unit2,unit3 ... unitN;

{$I GlobalUnit.inc}