1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

uses ShellApi;

...

  private
    { Private-Deklarationen }
    procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;

...

procedure TForm1.WMDROPFILES (var Msg: TMessage);
var i, 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);
    DragQueryFile(Msg.WParam,i , Dateiname, size);
    //ListBox1.items.add(StrPas(Dateiname)); hierher, was mit der Datei gemacht werden soll
    StrDispose(Dateiname);
  end;
  DragFinish(Msg.WParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Form1.Handle, true);
  ...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

uses
ShellApi...


  protected
    Procedure WMDropFiles (Var aMsg: tMessage);  message WM_DROPFILES;

...

Procedure TForm1.WMDropFiles(Var aMsg: tMessage);
Var
  Idx,
  Size,
  FileCount: Integer;
  Filename: pChar;
Begin
  Inherited;

  FileCount := DragQueryFile (aMsg.WParam, $FFFFFFFF, nil, 255);
  For Idx := 0 To FileCount -1 Do
    Begin
      Size := DragQueryFile (aMsg.WParam, Idx, nil, 0) + 1;
      Filename := StrAlloc (Size);
      
       If DragQueryFile (aMsg.WParam, Idx, Filename, Size) = 1 Then
        { nothing } ;

      Richedit1.Lines.LoadFromFile(pChar(Filename));
      StrDispose(Filename);
    End;

  DragFinish (aMsg.WParam);
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Form1.Handle, true);
end;					

1:
2:

If DragQueryFile (aMsg.WParam, Idx, Filename, Size) = 1 Then  
        { nothing } ;