Problem med Drag and drop i mediaplayer

Jeg har lavet en mediaplayer og bruger følgende kode til at man kan drag and drop filer ind i programmet:

(Skal måske lige siges at Path er en stringlist indeholdende stierne til alle filerne i Listbox1)

procedure TMedia.AcceptFiles( var msg : TMessage );
const
  cnMaxFileNameLen = 255;
var
  i,
  nCount, j, k    : integer;
  acFileName : array [0..cnMaxFileNameLen] of char;
begin
  // find out how many files we're accepting
  nCount := DragQueryFile( msg.WParam,
                          $FFFFFFFF,
                          acFileName,
                          cnMaxFileNameLen );

  // query Windows one at a time for the file name
  for i := 0 to nCount-1 do
  begin
    DragQueryFile( msg.WParam, i,
                  acFileName, cnMaxFileNameLen );

    // do your thing with the acFileName
begin

    for j := Low(acFilename) to High(acFilename) do Path.Add(acFilename[j]);
    for k := 1 to (Path.Count) do Listbox1.Items.Add(ExtractFileName(Path.Strings[k-1]));
end;

  end;

  // let Windows know that you're done
  DragFinish( msg.WParam );
end;

Men det virker ikke. Til min Listbox1 bliver der bare tilføjet en masse bogstaver (1-2 hver linje) men de ser ud som om de er fra stien til den valgte fil.
Hvorfor tilføjer den ikke navnet på filen?