[Claster]

а в таком синтаксисе возможно?

Код:

 procedure wmsyscommand(var msg: twmsyscommand); message wm_syscommand;

Код:

procedure TProgramForm.wmsyscommand(var msg: twmsyscommand);
var Sender:TObject;
Message: TMessage;
begin
   if msg.cmdtype = SC_CLOSE  then
    bCloseClick(Sender)
      else
        inherited;
  if msg.CmdType = SC_MAXIMIZE then
    begin
      ShowWindow(ProgramForm.Handle, SW_SHOWMAXIMIZED);
      ProgramForm.Align := alClient;
      Maximized := true;
      imResize.Visible := false;
    end;
  if msg.cmdtype=SC_RESTORE then
    begin


    end;
end;

сделал по вашему варианту но все ровно происходит SC_RESTORE

Код:

procedure TProgramForm.wmsyscommand(var msg: TMessage);
var Sender:TObject;
begin
   if msg.WParam = SC_CLOSE  then
    bCloseClick(Sender)
      else
        inherited;
  if msg.WParam = SC_MAXIMIZE then
    begin
      ShowWindow(ProgramForm.Handle, SW_SHOWMAXIMIZED);
      ProgramForm.Align := alClient;
      Maximized := true;
      imResize.Visible := false;
    end;
  if msg.WParam = SC_RESTORE then
     msg.Result := 0
     else inherited;
end;