drag and drop filter funktioniert nicht

[Marcasso]

^wenn ich jetz egal welche files ziehe wird nichts der liste hinzugefügt /:

Delphi-Quellcode:

procedure TForm2.WMDROPFILES (var Msg: TMessage);
var i, j, anzahl, size: integer;
  Dateiname: PChar;
begin
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
    Dateiname := AllocMem(Size);
    try
      if LowerCase(ExtractFileExt(Dateiname)) = '.mp3' then begin
        DragQueryFile(Msg.WParam,i , Dateiname, size);
        ListA.items.add(Dateiname);
        ListB.Clear;
        for j := 0 to listA.Items.Count - 1 do
          ListB.Items.Add(inttostr(j+1)+'. ' + extractfilename(listA.Items[j]));
      end;
    finally
      FreeMem(Dateiname,Size);
    end;
  end;