drag and drop filter funktioniert nicht

[Marcasso]

hallo ich habe in die drag and drogp procedure etwas hinzugefügt, dass nur mp3 files zusallen soll,
leider funktioniert dies nicht /:

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 not(copy(Dateiname,0,length(Dateiname)-4) = '.mp3') then
            begin
              showmessage('nur mp3 files');
              exit;
            end
          else
            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;
      end;
end;