verifcar se tabelas estão vazias no show do form

 procedure TfrmCadProduto.FormShow(Sender: TObject);
begin
  inherited;
  WindowState := wsMaximized;

  //abrindo os datasets
  dsClasse.DataSet.Open;

  //se não houver fornecedor cadastrado
  if dsForn.DataSet.RecordCount = 0 then
  begin
   if MessageBox(Application.Handle,Pchar('Não há fornecedores cadastrados.' +#13+ 'Deseja cadastrar agora ?'),Pchar('Cadastro de fornecedores vazio !'),MB_YESNO+MB_ICONEXCLAMATION )= ID_YES then
   begin
      frmCadProduto.Release;
      Application.CreateForm(TfrmCadFornecedor,frmCadFornecedor);
      frmCadFornecedor.Show;
   end
   else
   begin
     dsForn.DataSet.Open;
   end;
  end;

  //se não houver classe cadastrada ainda no sistema
  if dsClasse.DataSet.RecordCount = 0 then
  begin
   if MessageBox(Application.Handle,Pchar('Não há classes cadastradas.' +#13+ 'Deseja cadastrar agora ?'),Pchar('Cadastro de classes vazio !'),MB_YESNO+MB_ICONEXCLAMATION )= ID_YES then
   begin
      frmCadProduto.Release;
      Application.CreateForm(TfrmCadClasse,frmCadClasse);
      frmCadClasse.Show;
   end
   else
   begin
     dsClasse.DataSet.Open;
   end;
  end;

end;