[pesi]

Код:

procedure TForm1.ShellListView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if (Button = mbLeft) and (ssAlt in Shift) then
    ShellListView1.BeginDrag(True);
end;

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 if ExtractFileExt(ShellListView1.SelectedFolder.PathName)='.bmp' then
 Image1.Picture.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TShellListView then
    Accept := True
  else
    Accept := False;
end;