drag and drop filter funktioniert nicht

[Marcasso]

ich habe mit jetzt ExtractFileExt angeschaut

Delphi-Quellcode:

procedure TForm2.WMDROPFILES (var Msg: TMessage);
var i, j, anzahl, size: integer;
  Dateiname: PChar;
begin
  inherited;
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
      for i := 0 to (anzahl - 1) do
        begin
          size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
          Dateiname:= StrAlloc(size);
          if ExtractFileExt(StrPas(Dateiname)) = '.mp3' then
            begin
              DragQueryFile(Msg.WParam,i , Dateiname, size);
              ListA.items.add(StrPas(Dateiname));
              StrDispose(Dateiname);
              DragFinish(Msg.WParam);
              ListB.Clear;
            for j := 0 to listA.Items.Count - 1 do
              ListB.Items.Add(inttostr(j+1)+'. '+extractfilename(lista.Items[j]));
            end
          else
           begin
              showmessage('nur mp3 files');
              exit;
            end;
      end;
end;

leider funktioniert es wieder nicht,
mache wohl etwas falsch