Перетаскивание формы за любой объект,находящийся на ней

[Романнн]

Столкнулся с проблемой: при установке свойств формы dragkind: drag, при срабатывании функции form.begindrag(false); приложение закрывается громко матерясь.....при установке свойства dragkindock, все проблемы исчезают...
Как правильно настроить?
и если можно,скиньте исходник готовой рабочей программы....

[_Dmitry]

Для каждого объекта, за которые планируешь таскать форму, в событие OnMouseDown добавь ссылку на процедуру:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Form1.perform(WM_SysCommand,SC_DragMove,0);
end;

[Романнн]

спасибо большое! всё работает...