selectlabel:=tlabel.create(fselectresult);
selectlabel.Parent := fselectresult.PageControl1.Pages[0];{或者这句还可以这样写:selectlabel.Parent := fselectresult.TabSheet1 ;} selectlabel.caption := sfilename(varraycontrol[n]);
selectlabel.left := 30;
selectlabel.Top := 30+34*n; selectlabel.height := 16;
selectlabel.width := 80;