База Данных (.db) на Delphi не отображаеться таблица

Здраствуйте!
У меня курсовая справочник по пк периферии и я сделал таблицу Table 1.db !
Вопрос а как сделать что б отображалась таблица а то она в окне програмы не показываеться
Вот сама программа
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids,
DB;

type
TForm1 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Query1: TQuery;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
bd:TBitMap;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Naz: string[30];
begin
Naz:=InputBox('Пошук інформації в БД','Вкажіть необхідні критерії пошуку','');
if Naz <> ''
then
begin
with form1.Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT Назва, Тип, Виробник');
SQL.Add('FROM ":123:45.db"');
SQL.Add('WHERE');
SQL.Add ('(Naz = "'+ Naz + '")');
Open;
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1
else begin
ShowMessage('В БД немає записів, яхі задовольняють критеріям');
DataSource1.DataSet:=Table1;
end;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
DataSource1.DataSet:=Table1;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
bd:= TBitMap.Create;
bd.LoadFromFile('bd.bmp');
Form1.Canvas.Draw(0,0,bd);
end;

end.