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:

Código Delphi [-]

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

y luego implemento ...

Código Delphi [-]
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!