Оператор, не применимый к этому типу операнда.

[masandii]

Здравствуйте! вобщем ошибки в коде, не понимаю как исправить.

procedure TForm1.N18Click(Sender: TObject);
begin
if SearchForm.ShowModal=mrOK then
begin
with DataModule2.CosmQuery do
begin
Active:=false;
SQL.Clear;
SQL.Add('SELECT cosmetika.ID, cosmetika.Nazvanie, cosmetika.Opisanie, cosmetika.Cvet, cosmetika.Obiem, cosmetika.DateS, cosmetika.Cena, Proizvoditel.Proizvoditel, Razdel.Razdel');
SQL.Add('FROM (cosmetika INNER JOIN Proizvoditel ON cosmetika.ProCode=Proizvoditel.Code ) INNER JOIN Razdel ON cosmetika.RazCode=Razdel.Code');
bWhere := false;

// поиск по названию
if (SearchForm.Edit1.text <> '') AND bWhere then begin
bWhere := true;
SQL.Add('AND cosmetika.Nazvanie like :naz ');
Parameters.ParamByName('naz').value := SearchForm.Edit1.text;
end
else if (SearchForm.Edit1.text <> '') AND not bWhere then begin
bWhere := true;
SQL.Add('WHERE cosmetika.Nazvanie like h ');
Parameters.ParamByName('naz').value := SearchForm.Edit1.text;
end;
// поиск по производителю
if (SearchForm.DBLookupComboBox1.KeyVa lue <> null) AND bWhere then begin
bWhere := true;
SQL.Add('AND cosmetika.ProCode = :code ');
Parameters.ParamByName('code').valu e := SearchForm.DBLookupComboBox1.KeyVal ue;
end
else if (SearchForm.DBLookupComboBox1.KeyVa lue <> null) AND not bWhere then begin
bWhere := true;
SQL.Add('WHERE cosmetika.ProCode = :code ');
Parameters.ParamByName('code').valu e := SearchForm.DBLookupComboBox1.KeyVal ue;
end;
Active:=true;
end
end;
end;
вот тот самый злополучный фрагмент кода(


вот ошибки
[Ошибка] Unit1.pas(222): Undeclared identifier: 'bWhere'
[Ошибка] Unit1.pas(225): Operator not applicable to this operand type
[Ошибка] Unit1.pas(230): Operator not applicable to this operand type
[Ошибка] Unit1.pas(236): Operator not applicable to this operand type
[Ошибка] Unit1.pas(241): Operator not applicable to this operand type
[Фатальная ошибка] Project4.dpr(17): Could not compile used unit 'Unit1.pas'


пс. извините, если что не так, первый раз создаю тему. скажите я исправлюсь)

[evg_m]

ошибки надо читать сверху вниз

[Ошибка] Unit1.pas(222): Undeclared identifier: 'bWhere'

//все используемые переменные должны быть объявлены (перечислены в блоке var c указанием их типа.

procedure TForm1.N18Click(Sender: TObject);
var 
  bwhere: boolean;
begin

[masandii]

Спасибо) действительно ведь)

[masandii]

сообщение сообщение