Drag&Drop в ListBox'ах

[MAKEDON]

Доброго времени суток! У меня тут возникла проблема с перемещением строки из одного листбокса в другой! Вот код, но не могу понять в чем ошибся!

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if source = listbox1 then accept:= true else accept:= false;
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with source as  Tlistbox do
items.Delete(ItemIndex) ;
listbox2.Items.Add(items[ItemIndex])
end;

[Stilet]

Разбираться не буду просто рабочий пример покажу:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure ListBox2EndDrag(Sender, Target: TObject; X, Y: Integer);
    procedure ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox2EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
caption:='ads';
end;

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
var i:integer;
begin
//
i:=TListBox(Sender).ItemAtPos(point(x,y),true);
if (i<>-1) then begin
 TListBox(Sender).Items.Insert(i,TListBox(Source).Items[TListBox(Source).ItemIndex]);
end else
 TListBox(Sender).Items.Add(TListBox(Source).Items[TListBox(Source).ItemIndex]);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.DragMode:=dmAutomatic;
ListBox2.DragMode:=dmAutomatic;

end;

end.

[MAKEDON]

Объясни плиз эту часть..что то не понимаю..

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);   
var i:integer;   
begin   
//   
i:=TListBox(Sender).ItemAtPos(point(x,y),true);   
if (i<>-1) then begin   
 TListBox(Sender).Items.Insert(i,TListBox(Source).Items[TListBox(Source).ItemIndex]);   
end else   
 TListBox(Sender).Items.Add(TListBox(Source).Items[TListBox(Source).ItemIndex]);   
  
end;

[Stilet]

После того как ты отпустил мышу здесь получаем номер Итема в целевом списке по координатам мыши

i:=TListBox(Sender).ItemAtPos(point(x,y),true);

Таким образом получим местоположение куда нуна перетащить.
Далее если мыша указывает на непустое место, или точнее указывает на один из итемов в цели добавляем его после итема над которым мыша:

if (i<>-1) then begin      
 TListBox(Sender).Items.Insert(i,TListBox(Source).Items[TListBox(Source).ItemIndex]);

Иначе добавляем в конец.