1:
2:
3:
4:
5:
6:
7:

procedure TMainForm.fileList_DragEnter(sender: System.Object; e: System.Windows.Forms.DragEventArgs);
begin
  if (e.Data.GetDataPresent(DataFormats.FileDrop)) then //Werden auch wirklich Dateien gezogen?
    e.Effect := DragDropEffects.Copy //Jeder Effekt ist möglich, nur nicht "None", das würde blockieren
  else
    e.Effect := DragDropEffects.None;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TMainForm.fileList_DragDrop(sender: System.Object; e: System.Windows.Forms.DragEventArgs);
type strArr = Array Of String; //brauchen wir für den Cast
var files : strArr;
    i : Integer;
begin
  files := strArr(e.Data.GetData(DataFormats.FileDrop));
  //hier stehen jetzt alle Dateien bzw. Ordner drin, die gezogen wurden
  for i:=0 to High(files) do
  begin

    //Handelt es sich um einen Ordner?
    if (System.IO.FileAttributes.Directory
    and System.IO.File.GetAttributes(files[i])) = System.IO.FileAttributes.Directory
    then MessageBox.Show('Verzeichnis: '+files[i])
    else MessageBox.Show('Datei: '+files[i]);
  end;
end;