[NumLock]

Код:

procedure TF1.Button1Click(Sender: TObject);
begin
//  f3.Query1.EnableControls;
 f3.Query1.Close;
 f3.Query1.SQL.Clear;
 f3.Query1.SQL.Add('Select * from "else.db" '); //
 f3.Query1.SQL.Add ('where fio like "%Маст%"');
 f3.DBGrid1.DataSource.DataSet:=f3.Query1;
 f3.Query1.Open;
// f3.Query1.Active:=true;
 f3.show;
end;