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:

TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    Procedure WMDropFiles (Var aMsg: tMessage);  message WM_DROPFILES;
  end;
//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles (Handle, True);
end;

Procedure TForm1.WMDropFiles (Var aMsg: tMessage);
var size, FileCount: integer;
  filename: Pchar;
begin
  FileCount := DragQueryFile (aMsg.WParam, $FFFFFFFF, nil, 255);
  if FileCount > 0 then
  begin
      Size := DragQueryFile (aMsg.WParam, 0, nil, 0) + 1;
      Filename := StrAlloc (Size);
      If DragQueryFile (aMsg.WParam, 0, Filename, Size) = 1 Then
      // nix
      else
        image1.Picture.LoadFromFile(Filename);
  end;
end;