Выборка данных в БД (ADO)

[Makoto2005]

При кликаньи на кнопку "Найти" ничего не происходит.
Помогите найти ошибки.
вот код кнопки:

procedure TfrmComp.btnSearchClick(Sender: TObject; idx, id: longint);
var
S:string; // текст критерия сортировки или фильтрации
krit:string;
begin
edtSearch.Visible:=False;
lblSearch.Visible:=False;
btnSearch.Visible:=False;
btnReport.Visible:=True;
lblReport.Visible:=True;
case filtr of
1: begin
krit:=edtSearch.Text;
S:='PERFORMERS.PF_NAME=[krit]';
end;
2: begin
krit:=edtSearch.Text;
S:='AND COMPOSERS.CM_NAME=[krit]';
end;
3: begin
krit:=edtSearch.Text;
S:='AND AUTHORS.AT_NAME=[krit]';
end;
4: begin
krit:=edtSearch.Text;
S:='AND ACCOMP.AC_NAME=[krit]';
end;
end;
if S<>'' then

begin

SQL_Text:='SELECT * FROM COMPOSITIONS INNER JOIN (%s INNER JOIN COMP_%s ON %s.%s_ID=COMP_%s.%s_%s_FK) ON COMPOSITIONS.CP_ID=COMP_%s.%s_COMP_ %s';
SQL_Text:=SQL_Text+S;
dmFond.qryGetCompositions.Active:=F alse;
dmFond.qryGetCompositions.SQL.Clear ;
dmFond.qryGetCompositions.SQL.Add(S QL_Text);
dmFond.qryGetCompositions.Parameter s[0].Value:=krit;
dmFond.qryGetCompositions.Active:=t rue;
end
end;