[Страдалецъ]

Так попробуй:

Код:

procedure TForm9.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
Const
  HotArea = 10;
begin
 if Y in[ListView1.Height - HotArea..ListView1.Height]
 then SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
 if Y in [0..HotArea]
 then SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEUP, 0);
 Accept := True;
end;