小问题

我在一delphi编程实例中发现一个例子不能运行.unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,QExtCtrls,FileCtrl;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.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.ClientWidth div 4;
  //最好创建文件列表框
  Files:=TFileListBox.Create(Form1);
  Files.Parent:=Form1;
  Files.Align:=alClient;
  //将文件列表框与目录列表框关联
  Dirs.FileList:=Files;end;end.编译的错误为:Build
  [Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform
  [Error] Unit1.pas(38): Incompatible types: 'TWidgetControl' and 'TForm1'
  [Error] Unit1.pas(42): Incompatible types: 'QControls.TAlign' and 'Controls.TAlign'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'