Проблема с кнопкой поиска

[ozarnik585]

Проблема такая есть Edit есть Button мне нужно ,что бы выводились данные которые есть в базе и выводит в Table1

Код программы:
unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.BitBtn1Click(Sender: TObject);
var
name: string[20];
begin
MaskEdit1.Text:=name;
Table1.Active;
with query1 do
SQL.Add(QuotedStr(name));
Show;
end;

end.