Wieso machst du sowas!
Obwohl ich Dir schon erklärt habe wie man das OHNE WM_SYSCOMMAND macht.
Aber bitte, obwohl man das Problem so mit dem Holzhammer erschlägt:
Delphi-Quellcode:
type
TForm1 = class
private
procedure WMSysCommand(var Message : TWMSysCommand); message WM_SYSCOMMAND;
procedure TForm1.WMSysCommand(var Message : TWMSysCommand);
begin
if Message.CmdType = SC_MAXIMIZE then
// was nun?
else
inherited; // für alle Anderen
end;