with  TestQuery1  do 
   begin 
     if  Active  then  Close;  // Закрыть активный компонент TestQuery1  
    TestQuery1.SQL.Clear;  // Очистить содержимое компонента TestQuery1 (текст запроса) 
    TestQuery1.SQL.Add  // Занести новый текст запроса в компонент TestQuery1  
      (
 // Тут указываешь необходимый текст запроса: 
       ' select * from my_table t where t.f1 = 123 ' 
      );
    TestQuery1.ExecSQL;  // Выполнить вновь полученный текст запроса 
 // Как вариант, вместо TestQuery1.ExecSQL можно использовать TestQuery1.Active := true; 
   end ;