Doble Click en el título de la Ventana

[nemo]

Hola Foro!
Tengo el siguiente problema: Para lograr que una ventana, al maximizarze, lo haga dejando un margen en la parte inferior de la pantalla, logré componer -en base al recorte de código de la web y a la ayuda de gente de aquí del foro-, el siguiente código:



public
{ Public declarations }
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
.
.


y luego implemento ...


procedure TfrmPrincipal.WMSysCommand;
begin
if (Msg.CmdType = SC_MAXIMIZE) then
Constraints.MaxHeight := (Screen.Height)-(((Screen.Height) div 100)*5);
if (Msg.CmdType = SC_RESTORE) then
Constraints.MaxHeight := Screen.Height;
DefaultHandler(Msg);
end;


Funciona Ok, pero cuando efectuo un doble click en el título de la ventana, no funciona debido a que no he podido identificar e interceptar correctamente los mensajes asociados ...
Alguien puede ayudarme? ...

Gracias!