Проблема с добавление файлов =(((((

[andrey199520]

Ребят вот есть процедура , для перетаскивания файлов в ListView для дальнейшей записи на диск. При попытке записать пустую папку он не пишет.А при попытке записать папку с файлами пишет только файлы.В чём проблема?=(

procedure TForm1.WMDROPFILES (var Msg: TMessage);
var
  i,
  amount,
  size: integer;
  Filename: PChar;
begin
  inherited;
  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
  for i := 0 to (Amount - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Filename:= StrAlloc(size);  
    DragQueryFile(Msg.WParam,i , Filename, size);
    With ListView1.Items.Add do begin

    if DirectoryExists(StrPas(Filename)) then begin
    Caption := (StrPas(Filename)+'\');
    CDToolBurner1.InsertDir('\',StrPas(Filename));
    ImageIndex := 0;
    end
    else begin
    CDToolBurner1.InsertFile('\',StrPas(Filename));
    Caption := (StrPas(Filename));
    ImageIndex := 1;
    end;

    end;
    StrDispose(Filename);  
  end;  
  DragFinish(Msg.WParam);
end;