1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Sender = Source) ;
  if y<=50
    then SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEUP{SB_TOP}, 0) else
  if y>=Panel4.Height -50
    then SendMessage(ListView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;					

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

private
var ScrollWert:longint;
    ScrollEnd :boolean;
 
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
const vTime=50; // Intervall  50 ms
var ScrollMinPos, ScrollMaxPos, Pos :LongInt;
begin
  Accept := (Sender = Source) ;

  Pos:=GetScrollPos(ListView1.Handle,SB_VERT);
  GetScrollRange(ListView1.Handle,SB_VERT,ScrollMinPos, ScrollMaxPos);
  if ((y<=50) and (Pos > ScrollMinPos)) then
    begin
      ScrollWert:=-5;
      Timer2.Interval:=vTime; // 50 ms
      Timer2.Enabled:=true;   // Scrollvorgang starten
      ScrollEnd:=false;
     end
  else
  if ((y>=Listview1.Height-50) and (Pos+5 <ScrollMaxPos)) then
    begin
     ScrollWert:=5;
     Timer2.Interval:=vTime; // 50 ms
     Timer2.Enabled:=true;   // Scrollvorgang starten
     ScrollEnd:=false;
    end
   else begin
     ScrollEnd:=true;        // Scrollvorgang abbrechen
     Timer2.Enabled:=false;
   end;
end;

procedure TForm1.ListView1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
  ScrollEnd:=true; //Scrollvorgang abbrechen
end;

procedure TForm1.Timer2Timer(Sender: TObject);
//Listview1 Scroll nach oben/unten bis Anfang/Ende oder ScrollEnd=true (DragEnd)
var ScrollMinPos, ScrollMaxPos, Pos :LongInt;
begin
  Pos:=GetScrollPos(ListView1.Handle,SB_VERT);  //aktuelle Pos von Scrollbar
  GetScrollRange(ListView1.Handle,SB_VERT,ScrollMinPos, ScrollMaxPos);  //liest ScrollMin-/MaxPos
  if (((Scrollwert>=0) and (Pos+5 <= ScrollMaxPos)) or
      ((Scrollwert<=0) and (Pos-5 >= ScrollMinPos))) and
       (ScrollEnd=false) then
    begin
 //     Listview1.ScrollBy(0,ScrollWert);   //funktioniert nicht
      ListView1.Scroll(0,ScrollWert);       //funktioniert
      Pos:=GetScrollPos(ListView1.Handle,SB_VERT);
      Listview1.Repaint;
      if  ((pos+5 <=ScrollMinPos) or (pos-5 >=ScrollMaxPos) or (ScrollEnd=true)) 
        then Timer2.Enabled:=false;  //Timer beenden bei Scrollende
    end
    else Timer2.Enabled:=false;
end;