[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]