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! kun mapper!. Hvordan kan jeg få den til at virke med at drag'n drop en enkel fil og mappe(r)?


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;