БД и Delphi. Запрос внутри кода программы.

buf4:=Form1.ComboBox3.Text;
 
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select QEST, GOOD_ANS, WR_ONE, WR_TW, WR_THR');
ADOQuery2.SQL.Add('from QESTS,TEST');
//ADOQuery2.SQL.add('where TEST.TEST_ID=QESTS.TEST_ID and ');
//ADOQuery2.SQL.add('TEST.TEST_NAME like "'+buf4+'"');
ADOQuery2.Active:= True;
ADOQuery2.Open;
 
 
good:=0;
bad:=good;
Randomize;
 
rand[0]:=random(4);
go:k:=random(4);
if rand[0]<>k then rand[1]:=k else goto go;
go2:k:=random(4);
if ((rand[0]<>k) and (rand[1]<>k)) then rand[2]:=k else goto go2;
go3:k:=random(4);
if ((rand[0]<>k) and (rand[1]<>k) and (rand[2]<>k)) then rand[3]:=k else goto go3;
 
if ((RadioButton1.Checked) and(ADOQuery2.FieldValues['GOOD_ANS']= Memo2.Text)) then inc(good) else
if ((RadioButton2.Checked) and(ADOQuery2.FieldValues['GOOD_ANS']= Memo3.Text)) then inc(good) else
if ((RadioButton3.Checked) and(ADOQuery2.FieldValues['GOOD_ANS']= Memo4.Text)) then inc(good) else
if ((RadioButton4.Checked) and(ADOQuery2.FieldValues['GOOD_ANS']= Memo5.Text)) then inc(good) else
inc(bad);
ADOQuery2.Next;
if not ADOQuery2.Eof then
begin
Memo1.Text:=ADOQuery2.Fields[0].Text;
 
arry[0]:=ADOQuery2.Fields[1].Text;
arry[1]:=ADOQuery2.Fields[2].Text;
arry[2]:=ADOQuery2.Fields[3].Text;
arry[3]:=ADOQuery2.Fields[4].Text;
 
Memo2.Text:=arry[rand[0]];
Memo3.Text:=arry[rand[1]];
Memo4.Text:=arry[rand[2]];
Memo5.Text:=arry[rand[3]];
 
end;

ADOQuery2.SQL.add('TEST.TEST_NAME like '''+buf4+'''');

if ADOQuery2.RecordCount<>0 then {...}

buf4:=Form1.Edit2.Text;
 
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select QESTS.QEST, QESTS.GOOD_ANS, QESTS.WR_ONE, QESTS.WR_TW, QESTS.WR_THR, QESTS.TEST_ID');
ADOQuery2.SQL.Add('from QESTS,TEST');
ADOQuery2.SQL.add('where TEST.TEST_ID=QESTS.TEST_ID ');
ADOQuery2.SQL.add('and TEST.TEST_ID='+buf4);
ADOQuery2.Active:= True;
ADOQuery2.Open;

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select QESTS.QEST, QESTS.GOOD_ANS, QESTS.WR_ONE, QESTS.WR_TW, QESTS.WR_THR, QESTS.TEST_ID');
ADOQuery2.SQL.Add('from QESTS,TEST');
ADOQuery2.SQL.add('where (TEST.TEST_ID=QESTS.TEST_ID) ');
ADOQuery2.SQL.add('and (TEST.TEST_ID='+Edit2.Text+')');
ADOQuery2.Active:= True;
ADOQuery2.Open;