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:

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 } ; 
      if strg_gedrueckt then          //boolean ob man strg gedrückt hat beim loslassen
        movefile(Filename,PChar(Laufwerk) // Laufwerk wird im onMouseMove des Image festgelegt
      else begin
        movefile(Filename,PChar(Laufwerk);
        deletefile(filename);
      end;
    End; 
  DragFinish (aMsg.WParam); 
End;

procedure Tform1.Image1OnMouseMove(Sender: TObject; X,Y: Integer);
begin
  Laufwerk:='C:\';
end;