procedure TForm1.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM data WHERE NEV = "Robert"');
  Query1.RequestLive := true;
  Query1.Open;
end;