Como puedo hacer una consulta con un Query y que se actualize en el DBGrid

[olbeup]

Ya se la forma de encontrar los registros que es (Locate, Findkey o FindNearest), que quiero hacer con el registro, solo que el DBGrid apunte al registro que he seleccionado, solo eso, pero sino se puede hacer con SQL, pues entonces usare (Locate, Findkey o FindNearest), te voy a mostrar lo que estoy haciendo.

ejemplo:

y el Memo1 Contiene 'Select * Form Ventas Where IdTicket=78;'

Label3.Caption := 'Ejecutando SQL, Espere...';
Label3.Refresh;
DataModule4.Query1.SQL.Clear;
DataModule4.Query1.SQL.Text := Memo1.Text;
DataModule4.Query1.DatabaseName := 'DBTabla1';
DataModule4.Query1.DataSource := DataModule4.DataSource1;
DataModule4.Query1.Prepare;
DataModule4.Query1.ExecSQL;
Label3.Caption := '';

y no quiero utilizar (Locate, Findkey o FindNearest), porque no quiero, porque estoy empezando con SQL y estoy averiguando si con SQL se puede hacer todo o casi todo.