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

Type 
    MyForm1 = Class(TForm)                               // Formular 1
     // hier stehen irgendwelche Variablen und Objecte
     // sowie Ereignisproceduren
     Private
        .....  // nur für MyForm1 nutzbar

     Public
       MyVariable  : irgendwas... // das ist nutzbar
       ....
       ....
     end;


Var
    MyForm1 : TForm;
    MyVariable  : irgendwas...
  .....					

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

Procedure TMyForm2.Create( sender : TObject);
var   test  : irgendwas
 
Begin 
  Test:=MyForm1.MyVariable;  // beachte Kommentar
  .....
end;					

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:
27:
28:
29:
30:
31:
32:
33:
34:

type
  TForm1 = class(TForm)

  private
    { Private-Deklarationen }
  public
   A: array of Integer;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

procedure TForm1.Button1Click(Sender: TObject);

var   i : integer;
begin
  SetLength(A, 10);

  for i := 0 to 9 do
       A[i] := 100 * i;

  Form2.show;
end;

SOWEIT FORMULAR 1

DANN
procedure TForm2.FormCreate(Sender: TObject);
var myarray : array of integer;
begin

 setlength (myarray,length(Form1.A));
 myarray := Form1.A;