Drag'n Drop filer og mapper

Jeg bruger nedstående kode til at drag'n drop mapper over i min listbox og tilføjer alle file der ender på txt og txt2. Men det virker ikke når jeg drag'n dropper en enkel fil. Hvordan kan jeg få den til at virke med at drag'n drop en enkel fil og mappe(r)?

[Warning] drag.pas(7): Unit 'FileCtrl' is specific to a platform
[Warning] drag.pas(80): Symbol 'faHidden' is specific to a platform

^får nogle warnings, men virker stadig, hvorfor får jeg disse warnings?


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AcceptFiles( var msg : TMessage );
      message WM_DROPFILES;
  end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles( Handle, True );
end;


procedure TForm1.AcceptFiles( var msg : TMessage );
const
  cnMaxFileNameLen = 255;
var
  i,
  nCount    : integer;
  files : array [0..cnMaxFileNameLen] of char;
  Ext : string;

  procedure ListDir(Path: String);
  var
    Sr: TSearchRec;
  begin
    if FindFirst(Path + '\*.*', faAnyFile and not faHidden, Sr) = 0 then
    begin
      repeat
        if (sr.Name <> '.') and (sr.Name <> '..') then
        begin
          if sr.Attr and faDirectory <> 0 then
          begin
            ListDir(Path + '\' + Sr.Name)
          end else begin
          Ext := ExtractFileExt(Path + '\' + Sr.Name);
          if (ext = '.txt') or (ext = '.txt2')
            begin
              FileList.AddItem(Sr.Name, nil);
            end;
          end;
      end;
      until FindNext(Sr) <> 0;
      FindClose(Sr);
    end;
  end;

begin
  // find out how many files we're accepting
  nCount := DragQueryFile( msg.WParam,
                          $FFFFFFFF,
                          files,
                          cnMaxFileNameLen );

  // query Windows one at a time for the file name
  for i := 0 to nCount-1 do
  begin
    DragQueryFile( msg.WParam, i,
                  files, cnMaxFileNameLen );
    ListDir(Files);
  end;
  DragFinish( msg.WParam );
end;