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