Перетаскивание файла из ShellListView в TImage

[Fakov]

Помогите пожалуйста, очень давно парюсь над этой проблемой, никто помочь не может((! Есть компонент ShellListView. В нем отображаются все файлы естессно. И есть компонент TImage. НУжно сделать так чтобы из ShellListView можно было перетащить графический файйл в TImage и он открылся. Дайте пожалуйста коды обработчиков событий, у меня ниче не выходит((

Вот как я делал:

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 Image1.Picture.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;

[mihali4]

Ну, а DragMode в автомат выставлена ?