Ошибка в SQL запросе

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Text:=
  'SELECT [Болезнь].Болезнь,[Болезнь].Симптомы,'+
  '[Лекарства].Лекарства,[Лекарства].Количество FROM [Лекарства]'+
  'INNER JOIN [Болезнь] ON [Лекарства].Код = '+
  '[Болезнь].Код'+
  'WHERE([Лекарства].Количество>=10);';
  form1.ADOQuery1.Active:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Text:=
  'SELECT [Болезнь].Болезнь,[Болезнь].Симптомы FROM [Болезнь]'+
  'WHERE ([Болезнь].Симптомы=ОРВ);';
form1.ADOQuery1.Active:=True;
end;

ADOQuery1.SQL.Text:= 'SELECT [Болезнь].Болезнь,[Болезнь].Симптомы FROM [Болезнь] WHERE 
 ([Болезнь].Симптомы='#39'ОРВ'#39')';

ADOQuery1.SQL.Text:= 'SELECT [Болезнь].Болезнь,[Болезнь].Симптомы FROM [Болезнь] WHERE 
 ([Болезнь].Симптомы=:Prm)';
ADOQuery1.Parameters.ParamByName('Prm').Value := 'ОРВ';

  form1.ADOQuery1.SQL.Text:=
  'SELECT [Болезнь].Болезнь,[Болезнь].Симптомы, '+
  '[Лекарства].Лекарства,[Лекарства].Количество FROM [Лекарства] '+
  'INNER JOIN [Болезнь] ON [Лекарства].Код = '+
  '[Болезнь].Код '+
  'WHERE([Лекарства].Количество>=10);';