1:

 x := MainForm.testarray[1]					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

    procedure BTKlicken(Sender: TObject);
    procedure BXKlicken(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }


   bt : array[1..100] of TBitBtn;
   bx : array[1..20] of TGroupBox;

   BTExst: array[1..100] of boolean;
   BXExst: array[1..20] of boolean;
   BTPreis: array[1..100] of currency; 
   BTshct: array[1..100] of string;     
   BTVsbl: array[1..100] of boolean;   
   
  end;         
var
  Form2: TForm2;

implementation

uses Unit1, Unit4, Unit3, Unit10;

{$R *.dfm}					

1:
2:
3:
4:
5:
6:
7:
8:

if Form2.BTshct[hbt] = '' then
          begin
          
          end
          else
          begin
          Form2.bt[hbt].Caption := '&'+Form2.btshct[hbt]+': '+Form2.bt[hbt].Caption;
          end;					

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

var
  Form2: TForm2;
  hans:integer;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
hans:=3;
end;					

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

implementation

uses unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(hans));   //3
hans:=5;
showmessage(inttostr(hans));   //5
end;