Свойство dmManual в Edit

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
void __fastcall TForm1::ListBox1DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
   Accept = Source->ClassNameIs("TEdit");
}
void __fastcall TForm1::Edit1DragOver(TObject *Sender, TObject *Source, int X, int Y,
          TDragState State, bool &Accept)
{
       Accept = Source->ClassNameIs("TListBox");
}
void __fastcall TForm1::Edit1DragDrop(TObject *Sender, TObject *Source, int X, int Y)
 
{
   TListBox *pListSource = (TListBox *)Source;
   TEdit *pListDest = (TEdit *)Sender;
   pListDest->Text = pListSource->Items->Strings[pListSource->ItemIndex];
   pListSource->Items->Delete(pListSource->ItemIndex);
}
void __fastcall TForm1::ListBox1DragDrop(TObject *Sender, TObject *Source, int X,
          int Y)
{
   POINT p;
   TEdit *pListSource1 = (TEdit *)Source;
   TListBox *pListDest1 = (TListBox *)Sender;
   p.x=X;
   p.y=Y;
   int nItem=pListDest1 -> ItemAtPos(p, false);
   pListDest1->Items->Strings[nItem] = pListSource1->Text;
   pListSource1->Clear();
}