S>Т.е. создаем published procedure OnControlDoubleClick(Sender: TObject); в нашей форме и вперед — просто прописываем ее всем контролам.

дополнение в OnCreate формы (это чтобы ручками ничего не делать)

for i := 0 to ComponentCount do
if (Component[i] is TEdit) then
TEdit(Component[i]).OnDoubleClick = OnControlDoubleClick;

в случае других контролов запись будет длиннее, но тоже не сложно.