[krtoshl]

Код:

procedure TForm6.cbb1Change(Sender: TObject);
begin
if cbb1.ItemIndex=1
then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1  else
ShowMessage('Виберіть книгу');
end;

MAD: пользуемся тегами

[M.A.D.M.A.N.]

в знаке присвоения вместо знака равенства.

[krtoshl]

поменял.Все ровно ошыбка
[Error] Unit6.pas(36): ':=' expected but '=' found

[icWasya]

Карая из приведённых вами строк - тридцать шестая?

[NumLock]

Операторы в Паскаль разделяются ; а не and

[krtoshl]

вот ета

Код:

then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1  else

MAD: повторно напоминаю про тег [/code]

[NumLock]

Да, оно самое.

[lmikle]

Сообщение от krtoshl

вот ета
then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1 else

ага, а еше составной оператор делается с помощью begin..end.
т.е. код должен быть такой:

Код:

procedure TForm6.cbb1Change(Sender: TObject);
begin
  if cbb1.ItemIndex=1
    then 
      begin
        cbb2.ItemIndex:=2;
        cbb3.ItemIndex:=3;
        cbb4.ItemIndex:=1;
      end
    else ShowMessage('Виберіть книгу');
end;