Динамические компоненты.Бага с созданием

[Horus92]

Здравствуйте у меня в проэкте 3 статические формы. Я создаю динамические на основе классов статических.
Вот класс на основе которого я создаю окно

type
  TForm3 = class(TForm)
    Label1: TLabel;
    PBar1: TProgressBar;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    MB: TLabel;
    speed: TLabel;
    time: TLabel;
    timel: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    status: TLabel;
    url: TEdit;
    path: TEdit;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TimerElapse(Sender: TObject);
    function get(const fileURL, FileName: string): boolean;
    procedure timespeed(Sender: TObject);

  private

  public
   ID:integer;
  end;

Эта форма создается по нажатию на кнопку на формк основаной на классе

type
  TForm2 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Memo1: TMemo;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    SpeedButton1: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    function check:string;
    function GetUrlSize(const URL:string):Integer;
    function hosttoip(name: string; var ip: string): boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Вот моя структура.

type download=record
formdown:Tform3;
url,path,category,comment,prog,status,ip:string;
size,speed:integer;
result,pause:boolean;
tmpsize,file1,file2,ostatok:integer;
timerspeed,timerelapse:Ttimer;
threaddownload:TNewThread;
end;

Есть динамический массив

data:array of download;

Форма создается так

inc(i);
setlength(data,size+1);
inc(size);
data[i].url:=combobox1.Text;    
data[i].category:=combobox2.Text;    
data[i].path:=combobox3.Text;        
data[i].timerspeed:=Ttimer.Create(self);  
data[i].timerspeed.Interval := 1000  ;
data[i].timerspeed.OnTimer:=form3.timespeed; 
data[i].timerspeed.Enabled:=false;        
data[i].timerelapse:=Ttimer.Create(self);  
data[i].timerelapse.Interval := 1000  ;
data[i].timerelapse.OnTimer:=form3.TimerElapse;
data[i].timerelapse.Enabled:=false;      
data[i].formdown:=tform3.Create(application);    
data[i].formdown.ID:=i;              
data[i].formdown.url.Text:=combobox1.Text;  
data[i].formdown.path.Text:=combobox3.Text;
self.Hide;
data[i].formdown.Show;        
end;

По нажатию форма выполняет событие Oncreate и событие Onshow а потом почему то вместо этой формы(он должна быть data[1].formdown) в переменной self записан уже не динамический data[1].formdown а статическая форма form3. Пожалуйста помогите решить эту проблему.

[Пепел Феникса]

(он должна быть data[1].formdown)

уверены что индексы не путаете?
массивы то с нуля идут.
(возможно еще в добавок есть ошибка работы с дин массивом)

[Horus92]

нет индекс не путается я создаю массив на 2 элемента и пишу в первый нулевой пустой а при трассировке номер не меняется.

[Пепел Феникса]

а i у вас глобальная переменная?
где обьявлена?