помогите поправить запрос на выборку в дельфи

[Барби]

написала запрос на выборку по 2м параметрам-стране и спорту. запускается все ввожу данные а потом выдает ошибку. подскажите плиз в чем проблема.
procedure TForm1.N5Click(Sender: TObject);
var
ok,uk : boolean;
s,sp:string;
begin
ok:=InputQuery('Âûáîðêà ïî ñòðàíå è âèäó ñïîðòà','Ââåäèòå ñòðàíó',s);
uk:=InputQuery('Âûáîðêà ïî ñòðàíå è âèäó ñïîðòà','Ââåäèòå âèä ñïîðòà',sp);
if ok=true and uk=true
then
begin
with form7.adoquery1 do
begin
Parameters.ParamByName('par');
Parameters.ParamByName('par1');//.asString;
close;
sql.clear;
sql.add('select * from sorevnovaniya, sport, sportsmen, medali, strana');
sql.add('where sorevnovaniya.id_sporta=sport.id_sp ort');
sql.add ('and sorevnovaniya.id_spmna=sportsmen.id _sportsmen');
sql.add ('and sorevnovaniya.id_med=medali.id_meda li ') ;
sql.add ('and sportsmen.id_str=strana.id_strani ');
sql.add ('and srtana.nazvanie=ar');
sql.add ('and sport.nazvanie=ar1');
parameters.parambyname('par').Value :=s;
parameters.parambyname('par1').Valu e:=sp;
open;
end;
form7.datasource1.DataSet:=form7.ad oquery1;
form7.groupbox1.caption:='Âûáîðêà ïî ñòðàíå è âèäó ñïîðòà'+s;
form7.groupbox1.caption:='Âûáîðêà ïî ñòðàíå è âèäó ñïîðòà'+sp;
form7.show;
end;
end;

[mihali4]

Еще раз: когда копируете текст с русским языком, включите в источнике (откуда копируете текст) русскую раскладку. Поправьте, пожалуйста. Крякозябры сбивают с толку...
И еще. Знаете, откуда берутся в вашем коде смайлики? Вы путаете синтаксис языка программирования и языка SQL. В сиквеле =: никогда не было сравнением...
А у вас, например:
sql.add ('and srtana.nazvanie=:par');
что и дало в результате смайлик :+p=
Я понимаю, что это опечатка, и нужно быть внимательнее.