[ryderx34]

Попробуй так:

Код:

procedure TForm3.WMSyscommand(var msg: TWmSysCommand);
begin
  if msg.CmdType = SC_MAXIMIZE then
    begin
      Form3.Height:=200;
      Form3.Width:=200;
    end
  else
    inherited;
end;