Zamezení obnovení velikosti okna poklepáním na titulkový pruh

Tento tip malinko souvisí s tím předchozím. Opět se týká změny ovladatelnosti okna, opět využijeme zprávy systému. A použití? Těžko říci, to ponechám na vás.
.
.
.
private
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
.
.
.
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
with Message do
if CmdType and $FFF0 = SC_RESTORE then Result := 0
else inherited;
end;