Стандартный метод на лицо.
У TDBEdit как и у обычного TEdit, есть событие OnDbClick.
В обработку этого события добавляем соответствующий код.
Код:
Edit73.Text := DBEdit.Text;
Что кстати, подразумевается под словом "улетало" ?
Если хотите визуальный эффект, тогда могу лишь в общих чертах описать мысль.
Создаем TLabel. Делаем его прозрачным, позицию по умолчанию приравниваем позицию DBEdit. при двойнем клике по едиту, в обработчике события запускаем таймер, в котором описываем алгоритм перемещения по форме TLabel с исходной позии на позицию Edit. По завершению перемещения Label делаем невидимым, таймер останавливаем.
Удачи!!!
