При создании запросов постоянно вылетают ошибки

procedure TForm1.FormCreate(Sender: TObject);
begin
   Table1.Active:= True;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
     Label1.Caption:='Содержимое таблицы';
     DataSource1.DataSet:= Table1;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
   buf: string[30];
begin
   buf:= InputBox('Выборка информации из БД',
                  'Введите Название и щелкните на кнопке OK','');
   if buf = '' then exit;
   with Query1 do begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT Nazvanie, KolichestvoDomov');
        SQL.Add('FROM "Street.db"');
        SQL.Add('WHERE');
        SQL.Add('Nazvanie='+ buf +'');
        SQL.Add('ORDER by Nazvanie');
 
        Open;
        if RecordCount <> 0
        then
            DataSource1.DataSet:= Query1
        else ShowMessage('В БД нет записей, удовлетворяющих' + #13 + 'критерию запроса.');
end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption:='Результат запроса';
    Query1.Open;
    if Query1.RecordCount <> 0
    then
       DataSource1.DataSet:=Query1
    else ShowMessage('В БД нет записей, удовлетворяющих' + #13 + 'критерию запроса.');
end;
end.