{Galera esta dica é para verificar de maneira fácil a quantidade de registros em uma tabela e jogando numa label. Este exemplo é de quando clicar em um botao}
procedure TForm1.Button1Click(Sender: TObject); begin
Label1.Caption := IntToStr(Table.RecordCount); end;