WM_SIZE - wie wParam erfragen?

[Chearly020664]

Delphi-Quellcode:

procedure TForm15.WMSysCommand(var msg: TWmSysCommand);
begin
  case msg.CmdType of
    SC_MINIMIZE: ShowMessage('Minimize');
    SC_MAXIMIZE: ShowMessage('Maximize');
  end;

  inherited;
end;

Danke, das ist gut gemeint, aber ShowMessage('Minimize'); oder ShowMessage('Maximized'); werden leider vor der Minimierung oder Maximierung ausgeführt.