ppt显示问题(50分)

请大家帮我看看这段代码，为什么总是显示的是d1z.ppt文件呢？
begin

if Listbox1.Selected[0] then
PageControl1.ActivePage:=ListBox1.Items.objects[0] as TTabSheet;
path:=ExtractFilePath(Application.ExeName)+'/dzja/d1z.ppt';
OleContainer1.CreateLinkToFile(path,False);

if Listbox1.Selected[1] then
PageControl1.ActivePage:=ListBox1.Items.objects[1] as TTabSheet;
path:=ExtractFilePath(Application.ExeName)+'/dzja/d2z.ppt';
OleContainer1.CreateLinkToFile(path,False);

if Listbox1.Selected[1] then
PageControl1.ActivePage:=ListBox1.Items.objects[1] as TTabSheet;
path:=ExtractFilePath(Application.ExeName)+'/dzja/d2z.ppt';
OleContainer1.CreateLinkToFile(path,False);

end;

我只在tabsheet1中放乐一个olecontainer1,tabsheet2中没有olecontainer，我想实现的是listbox1中选择不同的item，在tabsheet1的olecontainer1中显示不同ppt，依照现在的代码只是显示第一次点中的item指的那个ppt，我再点另一个item，还是显示同一个ppt文件，晕
现在的代码已经改成
begin

if Listbox1.Selected[0] then
PageControl1.ActivePage:=TabSheet1;
path:=ExtractFilePath(Application.ExeName)+'/dzja/d1z.ppt';
OleContainer1.CreateLinkToFile(path,False);

if Listbox1.Selected[1] then
PageControl1.ActivePage:=TabSheet2;
path:=ExtractFilePath(Application.ExeName)+'/dzja/d2z.ppt';
OleContainer1.CreateLinkToFile(path,False);

end;

问题已经解决，看来是太简单乐，没有人回答啊

帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯