Listboxt'ın içindekini edita taşıma

Listbox'in içindekileri edit'a sürükleyerek bırakma.Listbox'ın items özelliğinden birkaç tane sayı girin ve aşağıdaki kodları yazınız.

procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (Source is TListBox) and (Sender is TEdit) then
with TListBox(Source) do
if ItemIndex>=0 then TEdit(Sender).Text:=Items[ItemIndex];

end;

procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source=Edit1 then
Accept :=true;
end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
ListBox1.BeginDrag(true);