anchor.diff:  
       FPageCount:=LResult.PageCount;
   
  -    FAllRecordsCountLabel.Visible := LResult.TotalDataCount >= 0;
  -    FAllRecordsCountLabel.Caption:=Format('Total: %d', [LResult.TotalDataCount]);
  +    if LResult.TotalDataCount >= 0 then
  +      FTotalDataCount := LResult.TotalDataCount
  +    else
  +      FTotalDataCount := -1;
  +
  +    FAllRecordsCountLabel.Visible := FTotalDataCount<>-1;
  +    FAllRecordsCountLabel.Caption:=Format('Total: %d', [FTotalDataCount]);
   
       FPageIndex := LResult.PageIndex;
   
  
positive.code:     property PageSize: Integer read FPageSize write SetPageSize default 100;
      property PageIndex: Integer read FPageIndex write SetPageIndex default -1;
      property AutoPageSize: boolean read FAutoPageSize write SetAutoPageSize default false;
      property CanPage: boolean read FCanPage write SetCanPage default true;
      property CanSearch: boolean read FCanSearch write SetCanSearch default true;
      property Canvas: TCanvas read GetCanvas;
  
negative.code:     Exit;
  
    FAutoPageSize:=AValue;
    if FAutoPageSize then
      ShowAllData:=false;
  
    HidePageSizeControls(not FAutoPageSize);
  
    if FAutoPageSize then
      FDrawGrid.ScrollBars:=ssNone
    else
  