[Ama]

Код:

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
     beign
      msg.Result := 0;
      msg.WParam:= 0;
     end;
 inherited;
end;