procedure TDM.TB_ContractCountGetText(Sender: TField; var Text: 
String; DisplayText: Boolean);
begin
    Text := IntToStr(TB_Contract.RecNo);
end;