那位大哥帮帮忙呀！我不想活啦！(50分)

下面的是书上的，但运行时怎么老出错？想知道是那里不对。
运行期间利用代码添加组件：
procedureTForm1.FormCreate(Sender:TObject);
var
Split:TSplitter;//分隔条
Dirs:TDirectoryListBox;//目录列表框
Files:TFileListBox;//文件列表框
begin
//首先在视图中增加一个目录列表框
Dirs:=TDirectoryListBox.Create(Form1);
//将目录列表框放在视图的左边
Dirs.Parent:=Form1;
Dirs.Align:=alLeft;
//将目录列表框和文件列表框利用分隔条组件分开
Split:=TSplitter.Create(Form1);
Split.Parent:=Form1;
//将分隔条组件放在目录列表框的右边
Split.Left:=Dirs.Left+Dirs.Width+1;
//设置分隔条的边框风格同目录列表框的边框风格
Split.Align:=Dirs.Align;
//每个分区的最小宽度不小于视图宽度的1/4
Split.MinSize:=Form1.ClientWidthdiv4;
//最后创建文件列表框
Files:=TFileListBox.Create(Form1);
Files.Parent:=Form1;
Files.Align:=alClient;
//将文件列表框与目录列表框关联
Dirs.FileList:=Files;
end;

>>Split.MinSize:=Form1.ClientWidthdiv4;
Split.MinSize:=Form1.ClientWidth div 4;

TO：
不是那里，在“Split:TSplitter;//分隔条“这一句就错了，但是不知道是什么原因？

我用你上面的代码块试过了，没有问题，
Dirs:TDirectoryListBox显示在左边，Files:TFileListBox显示在右边
中间有一个Split:TSplitter，可以拉动它。
你能不能说说出错信息。

就是这个
Error] Unit1.pas(27): Undeclared identifier: 'TDirectoryListBox'
[Error] Unit1.pas(30): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

你可以在 uses 中加入 extctrls, filectrl；就可以啦。

谢谢：jswqg,
但不是知是什么原因？

FileCtrl is need by DirectoryExists

>>在“Split:TSplitter;//分隔条“这一句就错了，但是不知道是什么原因？
出错信息是什么？

接受答案了.