case i of
  0: Application.CreateForm(Tform1, form1);
  1: Application.CreateForm(Tform2, form2);
  2: Application.CreateForm(Tform3, form3);
  3: Application.CreateForm(Tform4, form4);
  end;