После ключевого слова Private { Private declarations } Дописываем новую процедуру: procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; После жмем комбинацию клавиш Ctrl+Shift+C Delphi генерирует пустую процедуру, после ключевого слова begin дописываем: inherited; with Message do if Result = HTCAPTION then Result := HTNOWHERE; Все)))
