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;