problemas con cargar los registro de una tabla en un TDBgrid

[edufg]

Perdonar por lo del código:

Código Delphi [-]
rogram Project1_diligencias;

uses
  Vcl.Forms,
  Windows,
  Dialogs,
  Unit1_diligencias in 'Unit1_diligencias.pas' {Ventana},
  Unit_diligencias in 'Unit_diligencias.pas' {Ventana_diligencias},
  DB in 'DB.pas' {B: TDataModule},
  Unit_filiaciones in 'Unit_filiaciones.pas' {Ventana_Filiaciones},
  Unit_datos in 'Unit_datos.pas' {Ventana_Datos},
  Unit_ayuda in 'Unit_ayuda.pas' {ventana_ayuda};

{$R *.res}

begin
  Application.Title := 'Diligencias 1.0';
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TVentana, Ventana);
  Application.CreateForm(TB, B); {aqui me da el problema del udeclared indentifier}
  Application.Run;
end.