[nemo]

Hola Foro!
Mi problema es el siguiente: Cuando maximizo el MainForm de mi programa, éste debe hacerlo pero no debe ocupar toda la pantalla, sino que necesito dejar en la parte inferior, un 10% sin cubrir ... Para todo lo demás, debe lucir como una operación de Maximización-Restauración convencional.
Intenté hacerlo así:

unit UMain;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
end;

var
Form1: TForm1;

implementation
uses UImpresor;
{$R *.DFM}

procedure TForm1.WMSysCommand;

begin
if (Msg.CmdType = SC_MAXIMIZE) then
begin
Top := 0;
Left := 0;
Height := (Screen.Height) - (Screen.Height div 9);
Width := Screen.Width;
Msg.CmdType := SC_RESTORE;
end;
DefaultHandler(Msg);
end;


end.

Cuando maximizo, obtengo el resultado deseado, pero como no se como implementar el boton de restaurar en la toolbar, y hacer que esa función se simule también.

Podrían ayudarme?
GRACIAS!