Здравствуйте, Злоумышленник!

Пример перехвата события восстановления окна приложения:

Type TMain = class(TForm)
....
protected
Procedure WMGetSysCommand(var Message : TMessage) ; message WM_SYSCOMMAND;
end;
.....
//------------------------------------------------------------------------------
// Обработка сообщения WM_SYSCOMMAND (перехват минимизации окна)
//------------------------------------------------------------------------------
Procedure TMain.WMGetSysCommand(var Message : TMessage) ;
Begin
//Если восстановление, то ничего не делаем...
IF (Message.wParam <> SC_RESTORE) Then Inherited;
End;

Здравствуйте, Злоумышленник!
OnCanResize по идее может помочь (хотя выше изложенное кажется более правильным). Resize:=false; - и форма размера не изменит, но переместится в левый верхний угол, но это исправимо. Только вот значок поменяется, вроде как развёрнутое окно. Можно ещё с OnConstrainedResize поэкпериментировать.

Здравствуйте, Злоумышленник!
Если вам нужно именно по щелчку по заголовку у меня получилось так:
Перехватываете сообщение wm_NcHittest, а далее примерно как в приложении
(правда максимизироваться по щелчку она тоже не будет)

Приложение:
procedure wmnchittest(var Msg: TWMncHITTEST); message wm_NcHittest;......procedure TForm1.wmnchittest(var Msg: TWMncHITTEST);var pt: tpoint;begin inherited; if msg.Result = HTCAPTION then msg.Result := htBorder;end;