MaxRecord auf 0 setzen klappt nicht

[Nalincah]

Mit dieser Proc kann ich in meinem Programm die MaxRecords einer ADOTable ändern:

Delphi-Quellcode:

  if Tab.TableName <> '' then
  begin
    try
     Tab.Active := False;
      Tab.MaxRecords := StrToInt(EditMaxRecords.Text);
      Tab.Active := True;
      LabelTabRecordCount.Caption := IntToStr(Tab.RecordCount);
    except
      on e : Exception do
      begin
        ShowMessage(e.Message);
      end;
    end;
  end else
  begin
    ShowMessage('Bitte öffnen Sie vorher eine Tabelle');
  end;

Leider kann ich das ganze nicht wieder auf 0 zurücksetzen. Der lässt das einfach auf dem zu letzt eingegebenen Wert. Woran liegt das?