PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
Array :=TTargetArry.create();
END;
PROCEDURE TForm1.FormDestroy(Sender: TObject);
BEGIN
Array.free();
END;
PROCEDURE TForm1.BitBtn1Click(Sender: TObject);
VAR
index : integer;
BEGIN
index := Array.Add(TTarget.Create);
WITH TTarget(Array.Items[index]) DO
BEGIN
......
END;
END;