Drag&Drop из проводника в свой FileManager

[SHREK]

вот нужно написать файл менеджер чтобы из любой папки виндоса можно было кидать файлы в программу (Drag&Drop)
я сделал Drag&Drop в ListView на моей форме всё нормально, но вот как сделать чтобы под курсором мышки с зажатой левой кнопкой перемещался выбор элементов ListView (там у меня список файлов), чтобы сделать как в винде над какой папкой кнопку отпустишь туда и копировало, а то у меня получается сделать в текущую, так как так как мышка пришла из вне с зажатой кнопкой ListView её не видит
может кто знает как или видел где нибудь исходники файл менеджера на Delphi где поддерживается Drag&Drop из проводника виндоса, поделитесь ссылкой или информацией пожалуйста.

надо короче чтобы при отпускании левой кнопки мыши получить элемент ListView (например в memo1 напечатать его ) находящийся под мышкой (хотелось бы его ещё и выделить при этом)

[Stilet]

var i:TListItem;
begin
i:=ListView1.GetItemAt(x,y);
if i<>nil then begin
 caption:=i.Caption;
 i.Selected:=true;
end;

[SHREK]

Сообщение от Stilet

var i:TListItem;
begin
i:=ListView1.GetItemAt(x,y);
if i<>nil then begin
 caption:=i.Caption;
 i.Selected:=true;
end;

А не подскажите в какую поцедуру это вставить и где взять x y

[mutabor]

procedure TForm1.ProcessDroppedFiles (lb : TListView; DragDropInfo : TDragDropInfo);
var
   i : Integer;
  FileData: TWin32FindData;
  FileInfo: TSHFileInfo;
  p: TPoint;
  item: TListItem;
begin
GetCursorPos(p);
memo1.Lines.Add('screen: '+IntToStr(p.x)+', '+IntToStr(p.y));
p:=lb.ScreenToClient(p);
memo1.Lines.Add('client: '+IntToStr(p.x)+', '+IntToStr(p.y));

item:=lb.GetItemAt(p.x,p.y);
if item<>nil then begin
 memo1.Lines.Add('item caption: '+item.Caption);
 item.Selected:=true;
 end;

for i := 0 to DragDropInfo.NumFiles - 1 do
  begin
    memo1.Lines.Add(DragDropInfo.Files[i]);
    if FileExists(DragDropInfo.Files[i]) then Memo1.Lines.Add('файл');
    if DirectoryExists(DragDropInfo.Files[i]) then Memo1.Lines.Add('директория');
  end;
end;

[SHREK]

Спасибо mutabor всё заработало ! Ты просто крут мужик