Перемещение элементов в TreeView ?????

[Demien]

Написал программу вроде записной книжки. Для удобного хранения и транспортировки контактов. (На дискету вместе с программой вмещается около 300 контактов, а на флешку - ................ ). Проблемма вот в чем. Я не знаю как сделать чтобы можно было перемещать контакты и папки в TreeView . Подскажите пожалуйста.

[Stilet]

Вот пример :

При этом выставь TreeView.DragMode:=dmAutomatic

unit Unit1;

interface

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

type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure TreeView1EndDrag(Sender, Target: TObject; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if TreeView1.GetNodeAt(x,y)<>nil then
if TreeView1.GetNodeAt(x,y)=TreeView1. TopItem then
TreeView1.TopItem:=TreeView1.TopIte m.GetPrev
else
if TreeView1.GetNodeAt(x,y).GetNext<>n il then
TreeView1.GetNodeAt(x,y).GetNext.Ma keVisible
end;


procedure TForm1.TreeView1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
TreeView1.Selected.MoveTo(TreeView1 .GetNodeAt(x,y),naInsert);

end;

end.

[Demien]

Огромное спасибо!!!
Все сразу заработало как надо!
Когда доработаю прогу - выложу!
Еще раз спасибо за помощь!!!

[Stilet]

Всегда пожалуйста