1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

unit HauptForm;

...


type
  TForm1 = class(TForm)

...

  private
    { Private declarations }
  public
    { Private declarations }
    Variable : Datentyp;  // pack hier deine variable rein
  end;					

1:
2:
3:
4:
5:
6:

unit NebenForm1;

interface

uses
  ...,HauptForm; //da halt der name der unit von deinem hautformular					

1:
2:
3:
4:
5:
6:

unit NebenForm1;

implementation

uses
  ...,HauptForm; //da halt der name der unit von deinem hautformular					

1:
2:
3:

//in FormXX.pas:
implementation
 uses UGlobalVars;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

unit UGlobalVars;
interface
 Type
  GlobalType1 = record
  end;
 procedure GlobalProcedure1;
 Var
  Var1, Var2 : AnyType;
implementation
 procedure GlobalProcedure1;
 begin
 end;
end.