1:
2:

type
  Ship1ArrayType = Array [1..200] of TImage;					

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

procedure TForm1.VariableInit;//Hier werden die Variablen initialisiert
begin
  Count:=0;
  stepX:=10;
  stepY:=10;
  Countdown:=5;  //Spielgeschwindigkeit
//Form Größe Anpassen
  FBreite:=1024;
  FHoehe:=768;
//Form Position Anpassen
  Form1.Top:=50;
  Form1.Left:=50;
//Ränder für Collisions Abfrage
  RandR:=950;
  RandU:=600;
  PosX:=0;
  PosY:=0;
//Schiff Anzahl
  ShipProRunde:=3;
end;					

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

procedure TForm1.Ship1Init;
var
  Ship1 : integer;

begin
  PosY:=10;
  for Ship1 := 1  to ShipProRunde -1 do
  begin
    Ship1Typ[Ship1]:=TImage.Create(nil);
    Ship1Typ[Ship1].Parent:= self;
    Ship1Typ[Ship1].picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'Ship1.png');
    Ship1Typ[Ship1].Left:=PosY;
    Ship1Typ[Ship1].autosize:=true;
    Ship1Typ[Ship1].Top:=PosX;
    Ship1Typ[Ship1].Left:=PosY;
    Ship1Typ[Ship1].Visible:=true;
    PosY:=PosY+60;
  end;
end;					

1:

Image1.Parent := Form1;