请大师们看一下这个delphi代码中的问题

全局变量为c:integer;
procedure TForm1.Label2Click(Sender: TObject);
var
Newlabel:Tlabel;
begin
if OpenDialog1.Execute then
if (OpenDialog1.FileName<>'') and (FileExists(OpenDialog1.FileName)) then
begin
Newlabel:=TLabel.Create(self);
Newlabel.Caption:=OpenDialog1.FileName;
Newlabel.AutoSize:=True;

//注意：关键是下边这一句：
// Newlabel.Parent:=Self;//原句
Newlabel.Parent:=Self.ScrollBox1 ;//现句

Newlabel.Left :=1;
Newlabel.Top:=2+(20*c);
Newlabel.Width:=Newlabel.Width +30;
Newlabel.tag:=c+1;
Inc(c);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
sl,onlyfname:string;
begin
for i:=0 to ControlCount-1 do
begin
if (Controls[i] is TLabel) and ((Controls[i] as TLabel).Tag <>0) then
sl:= (Controls[i] as TLabel).Caption;
onlyfname:=extractfile

请大师们看一下 请大师看一下！ 请面相大师看一下这个面--眉压眼，三角眼 请大师看一下风水 请大师给看一下 请大师看一下八字 请大师帮忙看一下 请大师看一下生辰八字 请大师们帮我看一下命相（男） 请各位大师帮忙看一下这个八字，必有反馈！！！谢谢！辛酉 戊戌 乙亥 壬午